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INTRODUZIONE 


Quando la Commodore ha introdotto sul mercato il C 16 ha voluto senza alcun 
dubbio una chiave alternativa al VIC 20 sia dal punto di vista del costo che delle 
prestazioni. Il C 16 ha senza dubbio delle peculiarità notevoli rispetto al suo 
predecessore, ma l'immediatezza, la facilità d'impiego e le mete che ci si prefìgge 
di raggiungere sono le medesime. 

Ecco perchè abbiamo voluto fondere in un unico volume dei programmi validi, 
in linea di massima, sia per l'uno che per l'altro home computer. La non totale ‘ 
compatibilità fra C 16 e VIC 20 ci ha obbligati a “segnare" opportunamente i 
programmi che vi offriamo. Ecco quindi che quei listati contrassegnati con un 
asterisco si riferiscono esclusivamente al computer VIC 20. I programmi invece 
che presentiamo con due asterischi potranno essere utilizzati indifferentemente 
dai possessori di VIC 20 che da quelli di C 16. 

Per ultimi, non per importanza naturalmente, sono quei programmi che 
presentano tre asterischi. In questo caso specifico occorre che i possessori di C 16 
apportino il seguente intervento di una semplicità banale: 

Quando si incontra l'istruzione: 

POKE 36879, un numero 
occorre digitare: 

COLOR 0,1 

oppure quando si incontrano altri tipi di istruzioni BASIC: 

POKE numero, numero ^ 

occorre ignorare, letteralmente, il comando. 
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CARATTERI E CODICI 
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ShJft Cr$r(0| Lift 


!Cr*r<D) 
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1. Giochi e passatempi 


★ * 


TESTA O CROCE * * 


Questo simpatico programma permette di trovare una soluzione ai dubbi 
con il classico sistema del "testa o croce”. 

Scrivi il programma. 

Fallo girare. 

Sarà proprio il tuo Commodore che scriverà TESTA o CROCE dopo ogni 
lancio. 

Per un nuovo lancio, premi il tasto RETURN. 

La linea 10 pulisce lo schermo. 

Le linee 20 e 30 generano un numero casuale (0 oppure 1 ) e a seconda 
dell’esito, scrivono “testa” o "croce”. 

Le linee 50, 60 e 70 permettono l’iterazione del programma tramite il 
tasto RETURN. 


1 0 PR 1 NT " C CLEAR 1 " : REM F’UL I Z I A SCHERMO 
20 Q=RNIK -TI > 

30 IF <. I NT i 2#< RNIK 1 ) ) ) ) < 1 THEN PR I NT " T 
ESTÀ": GOTO 50 
'40 PRÌ NT "CROCE" 

50 PR I NT =PR INTERRI NT 

60 PRI NT" RITENTA SARAI PIU" FORTUNA 
T0 ■ ! " 

70 INPUT "PREMI RETURN" ; K$ 

80 CLR '' ' 

90 GOTO • 1 U 
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TIRO DI DADI 


★ ★ 


Ecco un semplice sistema per lanciare due dadi e mostrarne i risultati. 
Le linee 20-30 trovano un numero casuale tra 1 e 6 e lo associano ad A 
Le linee 40-50 fanno lo stesso per il secondo dado (B). 

Le linee 60-70 scrivono i risultati insieme ad un messaggio esplicativo. 


10 PR I MT " [ CLEflR ] " 

20 fì= I NT < 7#RNB < t > > 

30 IF ft<l THEN 20 
40 B=INT<7#RNB<1>> 

50 IF BC1 THEN 40 
60 FRI NT "PRIMO BflB0“;fl 
70 PRI NT "SECONDO BhBO" ; B 
80 FOR 1=1 TO 10 : PRI NT : HEXT 
90 PR I NT " VUO I LflNC I ARE " CHRf < 1 3 > " hNCORH 
I BfiBI ?" 

100 PRI NT “PREMI UN TfiSTO" 

110 GET ft$:IF fif="" THEN HO 
120 GOTO 10 


LANCIO 

DI QUATTRO DADI * * 

Due dadi non ti bastavano? 

Ecco come averne quattro per ogni lancio! 

Naturalmente, questo programma lavora esattamente come il prece- 
dente, tranne che il comando FOR/NEXT nelle linee 50-140 fa ripetere al 
computer la fase di generazione e scrittura dei lanci. Se hai bisogno di 
sei, otto o dieci lanci, non devi far altro che sostituire al numero due nella 
linea 50 il numero tre, quattro o cinque. 


Iti FRI NT" CCLEAR3 " 

20 FRI NT "LANCIA QUATTRO DADI" 

30 I NPUT " PREfl I RETURN " ; K* • F’R I NT : PR I NT 
40 FRI NT" CCLEAR3" 

50 FOR 1=1 T0 2 
60 BL=INTC7*RNpa>> 

70 IF HL<1 THEN 60 
80 DR*IKT<7#RND<1>) 

A0 IF DR< 1 THEN 8© 

i A© pr i nt " mmmm* n 

1 1 0 PR I NT " * " .: DL ; " # " , DR ; " * " 

1 2© pr i nt " ********* " 

130 FRI NT : FRI NT 

143 NEXT 

1 5© FRI NT : CLR : GOTO 20 
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MESSAGGIO SEGRETO 

★ * 

I messaggi segreti possono essere molto divertenti! 

Spesso sono formati da codici dove le lettere sono sostituite da numeri. 
In questo programma, il computer fa proprio questo: associa un numero 
di tre cifre ad ogni lettera dell’alfabeto. 

Usando questi numeri, si possono mandare massaggi segreti assoluta- 
mente indecifrabili. 

E’ molto improbabile che numeri uguali siano associati a lettere diverse, 
dal momento che i numeri disponibili vanno da zero a 999. 

Fai attenzione, quando batti il programma, di separare con virgole le 
lettere nella linea 30. 

La linea 90 fa scrivere i risultati in due colonne. 

1 0 PR I NT " C CLEflR ] " : REM PUL 1 2 1 fi SCHERMO 
20 Z=RNEK-TI ) 

30 BfiTfi fi , B , C , D , E , F , G > H> I , J , K , L. , M , N • 0 , 
F’,Q,R,S,T,10 V, W,X,V,Z 
40 FOR N=1 TU 13 
50 C— I NT < 1 0@0#RNI* < 1 > > 

60 RE fiB L. ì 

78 D= I NT C 1 000*RNH < 1 > > 

80 REfiB J$ 

90 F'RINTLT; " " ;C, JT; " " ; D 
100 NEXTN 
110 GET K* 


io 


120 IF «$="" THEN 110 
130 RESTQRE 
140 GOTO 10 



★ 


Puoi far suonare il tuo computer a comando. 

Il comando FOR/NEXT delle linee 20 e 90 provoca la ripetizione auto- 
matica del “bip” pèr dieci volte. 

Ovviamente puoi cambiare il numero degli squilli sostituendo il numero 
10 nella linea 20. 

La linea 30 fa apparire la parola "BEEP” sullo schermo. 

Le linea 60 fà durare il singolo suono. 


1 a PR I NT " [ CLEfiR II " ^ REM PUL I Z I R SCHERMO 
20 FOR L=1 TO 10 
30 PRINT"BEEP" 

40 POKE 36878,15 
50 POKE 36876,220 
60 FOR T=1 TO 30 • NEXTT 
100 POKE 36878,@ 

110 FOR 1=1 TO 30© : NÉXTI , L 
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TEST DI MEMORIA * * 


Questo simpatico programma metterà a dura prova la vostra memoria !! 
Il computer vi mostrerà un numero per brevi istanti dopodiché vi chiederà 
di ripeterlo. 

Se per 3 volte sbaglierete vi verrà visualizzato un messaggio. 
Diversamente vi verrà proposto un altro numero. 


1 0 PR I NT " C CLEfìR ] C TF8 ] ” : CLR 
20 0=RND <. -T I > : 2= 1 
30 S= 1 000#RHD '• 1 ) 

40 N=INT<S*Z> 

50 PR I HT " R I CORDAI I > " H 

60 IF W=3 THEN PRINT " DIMENTICALO !": GOT 
0 140 

70 FOR T=1 TO 1 000 : NEXT 
80 PRINT" [OLEARI " 

90 INPUT "CHE NUMERO ERA " ; S 
100 IF SOM THEN PRINT"***HAI SBAGLIATO 
***" : W=W+1 : GOTO 60 
1 1 0 PR I NT " smESATTO*** " : R=R+ 1 • Z=Z+ 1 0 
120 PRINTR; "TENTATIVO" 

125 FOR T=1 TO 1000 : NEXT 
130 PRINT: GOTO 30 

1 40 PR I NT : PR I NT " HA I AVUTO " R : PR I NT " R I SP 
OSTE ESATTE" 
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150 FRI NT : PRIMI "PREMI UH TASTO PER 
I COMINCIARE" 

170 GET A$ : IF THEH 170 

190 CLR : GOTO 10 





CREA UN QUIZ 


* * 


Uno degli usi più affascinanti per il vostro computer è impiegarlo per 
comunicazioni visive di carattere istruttivo, educativo o semplicemente 
divertente. 

Un utile modo di avviare queste conversazioni può essere un quiz come 
quello qui presentato. 

I dati del quiz (la “conoscenza” del computer) sono nelle linee 20-7Ò. 
Fai attenzione alle virgole e agli spazi che devono essere' riprodotti 
correttamente quando trascrivi il programma. 

Le righe 90 e 100 generano un numero casuale fra 1 e 1 1 . 

La riga 1 10 seleziona la riga nei DATA per la domanda. 

Le linee 120-140 prendono l’esatto numerale dalla linea DATA 
selezionata. 

Le linee 160-180 scrivono la domanda del quiz sullo schermo, mentre la 
1 90 legge nei DATA la risposta esatta. 

Tu fornisci la risposta che viene confrontata con quella esatta (220 — 
240). 

Naturalmente il quiz può essere ampliato. 

Infatti in questo esempio, aggiungendo nuovi presidenti, in nuove linee 
DATA si aggiungono possibilità di gioco. 


10 FRI NT" CCLEfìR] " 

20 DATA PRIMO* GEORGE WASHINGTON 
30 HATA SECONDO, JOHN RDAMS 
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40 DR IH TERZO, THOMAS JEFFERSON 
5© DATA QUARTO, JAMES MADISON 
60 DATA QUINTO, JAMES MONROE 
70 DATA SESTO, JOHN QUINCV ADHMS 
75 FRI NT "QUANTI" 

80 F'R I NT " PRES I DEI IT I AMER I CRN I 
85 PR I NT " SAPREST I* ELENCARE? " 

90 R=INT<Ì2*RND<1>> 

100 IF R< 1 THEN 90 

110 IF INT<R/2>=R/2 THEN R=R+1 

120 FOR L=1 TO R 

130 READ &$ 

14 @ NEXTL 

150 PR I NT : PR I NT 

160 PRINT"CHI FU IL " 

170 PRINTSf ; " PRESIDENTE" 

180 PR II IT "DEGLI STATI UNITI?” 

190 READ C$ 

200 INPUT m 

210 FOR L~ 1 TO 3: FRI NT: NEXTL 
220 IF B$~C$ THEN PR I NT" ESATTO : GOTO 2 
40 

230 PR I NT " SBAGL I ATO ! " 

240 FRI NT "IL " : S$ 

250 PRI NT "PRESI DENTE FU" 

260 PRINTC* 

270 RESTORE 
280 PRI NT : PRI NT 
290 GOTO 90 
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PAROLA D’ORDINE 
MULTIPLA * * 


Questo è un sofisticato sistema di parole d’ordine che permette l’acces- 
so al programma ad alcune persone, ognuna delle quali avrà un perso- 
nale numero di codice ed una corrispondente parola d’ordine. 

Ogni utilizzatore deve immettere il suo codice e quindi la sua parola 
d’ordine. 

Se il numero è sbagliato la parola non potrà mai essere esatta. 

Se invece il numero è giusto ma la parola non corrisponde, niente da fare 
egualmente! 

Puoi aggiungere altri utenti autorizzati a questo programma scrivendo 
nuove linee nella subroutine posta fra le righe 300 e 340. 


10 PRIMI" CCLEhR 1 " 

20 FRI NT "DIGITA IL TUO NUMERO PERSONA 
LE" : INPUT UH 
50 GOSUB 300 

50 pR ì NT ’’ PAROLA D " ORI' I NE " : I NPU T PI 
HO IP P$="” THEN FRI NT" L2 UP3 " : GOTO 50 
70 IF F’I=PW$ THEN 110 
90 FRI NT "DOTI NON ACCETTABILI" 

100 END 

I 10 PRINT"0K! IL. CODICE E" ESATTO" 
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120 fri nt "puoi Picchiere rl pr 

Mfl PROTETTO” 

130 END 

300 IF Ufi= 12345 THEM PW$=" ZEBRA" 
310 IF Ufì=23456 THEN PW$=" COBRA" 
320 IF IJA=34567 THEN PW$="TIGRE" 
330 IF IJA-45678 THEN PW$~" CONDOR" 
340 RETURN 


OGRRN 
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INVERTITORE DI PAROLE 

★ ★ 

Digita una parola qualsiasi od un numero e scoprilo scritto alla rovescia 
sullo schermo. 

Alla fine il computer attende che tu prema un qualsiasi tasto per 
ricominciare. 


10 PRIMI" CCLEART " 

20 PR I NT " PAROLA/NUMERO : " : INPUT NT 
30 IF m=“" THEN PRIMI" L2 UP3 " : GOTO 20 
35 PRIMI" L'CLEHR]" 

4M L=LEM(M$> 

45 PR I MT " OR I G I MALE : " : PR I NTN$ 

50 PRIMT" ROVESCIATO: " 

• 0 FOR V=L TO l STEP -1 

70 B$=r-iiii$aiT, v, i> 

30 PR INIBÌ.; 

40 NE 2 Tt 

100 FOR K=1 TO 10: PRIMI NIENT 
liti PRIMI "PREMI UN TASTO" 

120 PR I MT " PER CONTINUARE" 

I .0 GEI Hi 

140 IF Af- W " THEN 130 

I ‘ .0 B$=" " 

I I .li GOTO' 10 
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DECIDE IL COMPUTER 

★ ★ 

Ti ricordi il programma che diede tanta popolarità al computer? 

Ora la potenza del calcolatore rende possibile una versione migliorata di 
quel programma. 

In questa edizione è possibile una scelta tra otto alternative. 

Dopo ogni esecuzione il computer attende che tu prema un qualsiasi 
tasto per ricominciare. 


10 

DATA 

LASCIA PERDERE 

20 

DRTR 

ACCETTA L'AFFARE 

30 

DATA 

SI ! 

40 

DATA 

FORSE. . . 

50 

DATA 

E' MEGLIO CHE RIORDINILE TUE 


IDEE 


60 

DATA 

SOPRASSIEDI 

70 

DATA 

NO ! ! ! 

80 

DATA 

OGGI NON USCIRE DI CASA 

90 

Q=RND« 

:;-TI> 


100 PRINT" CCLEflR] " 
110 N=INT <y*RMIK 1 > ) 
120 IF N<1 THEN 110 
130 FOR L=1 TO N 
140 READ R * 

150 NEXT L 
160 PRINTA* 
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170 GET K$ 

180 IF K$=" " THEH 17© 
190 RESTORE 
200 GOTO 100 


STRISCIA SCORREVOLE 

★ * * 

Inserite nel vostro calcolatore una frase per ogni richiesta di input (il 
numero totale lo stabilirete voi) e la vedrete scorrere da destra a sinistra 
al centro del vostro televisore come avviene per le pubblicità luminose di 
molti negozi. 
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P U K b. 6 fc! i " 9 ■ o : P R 

INTCHRT(!:j> 

20 

PRINTCHET '■ 1 47 > 


30 

PRI NT "QUANTE LINEE DI INPUT VUOI" : I 

i. * r _ - 1 *-r ir 

40 

ì -n u « c 

DIM R$CE>-‘ FQR K 

=- 1 Tu E 

50 

INPUT ">";fì:ÌCK> 

: fì*<K>=" 


" 

!< > : NEXTK 

1 06 

PR I NT CHE# < 1 47 > 


110 

pnp p-»i Tn f 


120 

FOR 1=22 TU 22+ 

LEN ( Hf ( P > > 

1 30 

PRINTCHR# ( ISO :p 

RI NT" [ 10 DOWN]".: TRE 


<22> .: 

T __ •{ ”, -| -j - Il II 

1 40 

Flit? 1 TU 100: 

NEXT.T ! 


156 


Mp 


TP 


Ih 


ni::: 


T p 


$ “ " JHE.N 1 1 0 


*'KI1 
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TRE CARTE 


★ * 


Un antico gioco arabo basato sulla velocità e sull’abilità del 
prestidigiatore consisteva nel mescolare tre carte disposte a dorso in su 
sopra un tavolo e di far scommettere a qualche sprovveduto passante 
quale fosse l’asso di cuori. 

Vi viene qui riproposto lo stesso gioco avvincente, nel quale però il vostro 
avversario non sarà la mano veloce di un arabo ma la sorte che 
casualmente assegnerà la posizione dall’asso di cuori. 


1 F-0 

5 Z $- " ? " •• Kt= " ? " : T$= " ? " 

10 GOSUB 1 000 : GOSIJE 1030 
20 F=RHD01 >*6+1 
25 IF F>6 THEN FE=6 

30 IF FI>0 RND F<2 THEN 35 

31 IF F>2 RND F<4 THEH 36 

32 IF F>4 RND FC6 THEH 37 

35 Z $= " ♦ " : V$~ " * " : x$= "♦ M : C 

36 2$="$" ■ V$="4'" : X^= M #" : C 

37 Z$ = " * " : Vf = " * " : K-$= " * " : C 
40 GOSUB 1000 

45 FOR G=1 TO 2000 : NEXTG 
50 PR I NT " L C'LERR ] C 3 DOWN 1 C ; 

UNTATO SU " .; J 
55 IF C=J THEH 70 


1 : G0T0 40 
3 : GOT 0 40 
2 ; GOTO 40 


RIGHT3HRI 


P 
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60 IF COJ THEW 80 

70 PR I NT " C 3 DOWN ] L 3 R I GHT ] HR I VINTO!": 
P=P+ 1 0000 : GOTO 90 

80 PR I NT " E 3 DOWN 3 C 3 RI GHT ] HAI PERSO ! " : 
P=P- 1 0000 

90 PRINT" ì DOWN] SEI fi QUOTA £"P 
1 00 I NPUT " [ 3 DOWN ] C 3 R I GHT 3 ANCORA " Et 
110 I F LEFT$ ( Et , 1 > O " S " THEN- 1 00 . 

117 PR I NT " [ 3 DOWN ] C 3 RIGH'HCRVSK PREMI 
UN TASTO >[ RVOFF 3 " 

120 GET W$ : I F W$="" THEN 120 
130 GOTO 5 
140 END 

175 PR I NT " L DOWN 3 SE I A QUOTA "P" LIRE" 

1 0@0 PR I NT " C CLEAR I I 3 DOWN ] " : T AB < 3 > " [ RVS 
] 1 [ RVOFF ] " ; T AB < 1 @ ) " [ RVS ] 2 C RVOFF ] " ; 
TAE < 1 7 > " [ RVS ] 3 C RVOFF ] " 

1010 PR I NT " [ DOWN 3 [ R I GHT 3 - , ■ . [ 2 RIGHT3— 

1020 S$=" IRIGHTII II II I " 

1021 FOR 1 = 1 TO 5 : PR I NT S$ '■ NEXT I 

1025 PRINT" I "ZT" I I "VT" I I "X$ H 
I " 

1026 FOR 1=1 TO 5 : PR I NT S$ NEXT 

1 027 PR I NT ” [ R I G HT 3 [ 2 R I GHT 3 [ 2 

RI GHT 3 " 

1029 RETURN 

1030 PRINT "CDOWN 3 DOVE E' - L'ASSO DI C 
UOPI " 

1040 INPUT J 

1045 IF J<1 OR J> 3 THEN PRINT" [2 UP3 " : GO 
TO 1040 
1050 RETURN 
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DIVISIONE IN SILLABE 

* * 

Questo utile programmino dividerà in sillabe qualsiasi parola voi 
digiterete. 


/U0 F'R I NT " C-CLERR ] " 

.'10 S=1 : FRI NT 

. V0 PR I NT " VOCABOLO " : I NPUT A# : PR I NT 
.• :0 IF R$="0 M THEN END 
.•40 IF S:>LEN(fl$) THEN PR I NT " [ LEFT ] " •' GOT 
0 2 1 0 

, *H0 X$ =M I D$ '• H$ .. S 1 > : GOSUB 460 
.'MI IF A = U THEN 4 60 
. 1 ,*0 X.$=M 1 D $ < R$ .. S+ 1 , 1 > : GOSUB 460 
, " :n IF lì— 0 THEN 360 
."ni IF THEN 320 

500 I F MI B$ < H$ , S , 1 > = " I " OR M I D$ < H$ , S , 1 > 
“"LI" THEN 430 
: 1 0 GOTO 440 

*H I D$ C R$ , S+2 ■ 1 > : GOSUB 460 

: :0 IF 8>1 THEN IF MID$(fl$ , S-l , 2> = H 0U" 
AND fl=-l THEN PRINTMID$<A$ , S, 2 > ; :S* 
S+2 : GOTO 240 
MH IF ft=-l THEN 440 
.l i GOT 0 430 

:«.0 IF S+2>LEN < H$ > THEN 450 
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3 7 0 X $ = M I D $ R $ . S + 2 .■ 1 > : G O S U B 46 0 

380 IF R=-l THEN 440 

390 I F M Iti t ( f\$ .■ S+ 1 • I > - M I B# 9$ .. S+2 , 1 > IH 
EN 450 

400 R 1 $~M I D$ < flf , S+ 1 , 1 > ; I F Ri " S " OR RI 
$="G" THEN 440 

4 1 0' R2$=M I B$ < R$ , S+2 , 1 ) : I F R2*="R" OR R2 
$="L" OR R2$="H" THEH 440 

420 GOTO 450 

430 PR I NTM I D$ < fi* , S , 1 > ; : S=S+ 1 : GOTO 240 

440 PR I NTM I M < fi* , S , 1 > ; " - " : S=S+ 1 : GOTO 2 
40 

450 PR I NTM I D* < fi* , S , 2 > ; " - " ; '• S-S+2 : GOTO 2 
40 

460 fi=X*= ,, fi" OR X*="E" OR X*="I" OR X*= 
"O" OR X*~ " IJ " RETURN 
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* ★ 


LUI E LEI 


Questo divertente gioco di società usava solitamente come supporto dei 
fogli di carta su cui ogni giocatore scrìveva segretamente la propria 
risposta, e la continua rotazione di foglietti da un giocatore al vicino ad 
ogni nuova domanda, provocava una combinazione di esilaranti 
"storielle”. 

Questa volta il supportò vi verrà fornito dalla modesta memoria del vostro 
VIC— 20. 


10 

s$a>=' 

' C2 

DOWN] 

C RVS] CHI 

E y LUI 

li 


20 

S$C2> = ‘ 

’ C 2 

DOWN] 

C RVS] CHI 

E'' LEI 

M 


30 

S$ < 3 > = ' 

' [2 

DOWN] 

C RVS ] DOV 

E 

SONO" 



40 

S$<4>=' 

'[2 

DOWN] 

[RVS] CO S 

A 

STANNO FAC 


ENDO" 








50 

S$<5>=‘ 

' C2 

DOWN] 

[ RVS ] COS 

A 

DICE 

LUI 

A 


LEI" 








60 

S$(6)=' 

’ C 2 

DOWN] 

[ RVS ] COS 

A 

DICE 

LEI 

A 


LUI" 








70 

S*<7>=' 

' C2 

DOWN] 

[RVS] COS 

A 

DICE 

LA i 

GE 


NTE DI 

LORO " 






80 

S$ <&•>=' 

’ C2 

DOWN] 

[RVS 3 COS 

A 

FACEV 

ANO 

P 


RIMA DI CONOSCERSI" 

90 SfC9>="C2 DOWN] [RVS 3 CHE LAVORO Ffì L 


IJI" 

I H0 $$ < 1 0 ) = " [ 2 DOWN ] C RVS ] CHE ATT I V I T A ' 
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SVOLGE LEI" 

1 1 0 PR I NT " [ CLERR 3 C 5 DOWN 3 QUfìNT I G I OCATO 
RI <MflX.10>": INPUT G 

120 IF G< 1 OR G> 1 0 THEN il© 

130 FOR W=1 TO G 

140 FOR T=1 TO 10 

1 50 PR I HT ” C CLEflR 3 " S* < T > 

160 .1 NPUT " [ DOWN 3 " ; A$ C T , W > 

170 NEXTT 

180 IF WOG THEN FRI NT" C CLERR] C2 DOWN 3 H 
RI FI N ITO!": PR I NT " C DOWN 3 TOCCA RL PR 
ORSINO GIOCATORE! " -GOTO 200 
1 90 PR I NT " [ CLERR 3 C DOWN] [ RVS ] OK ! C 2 DOWN 3 
ATTENDETE !": FOR 1 = 1 TO 1000 : NEXT 
200 FOR 1=1 TO 1 00O : NEXT I : HEXTW 
2 1 0 D= I NT < G/2 > : PR I NT " [ CLERR 3 " 

220 FOR K=1 TO 10 

230 PR I NTS$ C K > : PR I NT " C DOWN 3 " fl $ < K , D > 

240 D=D+ 1 : IF D=G+1 THEN D=1 
250 FOR 1=1 TQ 1 000 : NEXT 
260 NEXTK 

270 IF D= I NT < 6/2 > THEN END 
280 PRI NT "«PREMI UN TASTO*#*" 

290 GET Zf:IF Z*="" THEN 290 
300 GOTO 220 


j 


SORPRESA * 


Ecco un classico gioco spaziale per il vostro computer VIC — 20. Dovete 
cercare di evitare le collisioni con gli elementi alieni e gli asteroidi. I tasti 
M e Z vi permetteranno di muovervi rispettivamente verso destra e verso 
sinistra. 


150 POKE 650,128 

200 PR I NT " [ CLERR 3 [ 2 DOWN ] C R VS 3 COMRND I [ R 
VOFF 3 " 

250 PR I NT " C 2 DOWN ] C RVS 3 2 C RVOFF ] S I N I STR 


300 PRINT " [2 D0WN3 C RVS 3 ME RVOFF] fl DE8TR 
fì" 

350 PR I NT " [ 2 DOWN 3 [ RVS 3 * C RVOFF 3 RL I EN I " 
400 PR I NT " C 2 DOWN 3 C RVS 3 • [ RVOFF 3 RSTERO I 
DI" 

450 INPUT " C2 D0WN3 CRVS3 IL TUO N0ME7CRV 
0FF3".;P$ 

50O PRINT" C CLERR 3" 

550 PRINT" C2 D0WN3 CRVS3 IL TUO NOME E'CR 
VOFF 3 " .; F$ 

600 FOR H=1 TO 1 000 : NEXT 
650 PRINT" CCLERR3 " 

700 POKE 36879,8 
750 H=0 : S=0 : 2=0 


\ 
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800 0=50 

850 fl=7900 : B= 1 1 : I>=8 1 64 
900 FOR J=1 TO 24 ; F'R I UT : NEXT 
950 FOR K=1 TO 600 
1 @00 POKE D+ 1 NT < 32#RND <1 > ) , 46 
1050 R= I NT < 25#RND < 1 >. > 

1100 IF R=1 THEN - 3450 
1150 FOR J=1 TO Q : NEXT 
1200 Q=Q-0.25 
1250 POKE fl+B> 32 
1300 PRINT 
1350 GET fi$ 

1400 IF R*="" THEN 1650 
1450 IF B=1 FINII fi$="M" THEN H=H+1 
1500 IF B=21 AND R$="Z" THEN H=H+1 
1550 IF B> 1 HNH fì$="Z" THEN B=B-1 
1600 IF B<21 AND R$="M" THEN B=E’+1 
1650 POKE A+B,22 

1700 IF PEEK < < R+B > +22 > =46 THEN 1900 

1750 IF PEEK i (. fì+B > +22 > =42 THEN 3700 

1800 NEXTK 

1850 GOTO 2600 

1900 POKE 36879 ..42 

1950 PRINT" CCLERR] " 

2000 PRINT" 17 DOWN ] I B I ANCO ] ASTRONAVE DIS 
TRUTTA ! ! " 

2050 POKE 36877,220 
2100 S=8+l 

2150 FOR L=15 TO 0 STEP -1 

2200 POKE 36878, L 

2250 FOR M=1 TO 100 

2300 NEXTM 

2350 NEXTL 

2400 POKE 36877,0 
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2459 POKE 36878,6 
2500 POKE 36879,8 
2550 GOTO 1000 

2600 FRI NT" COLERE] " : FOR K=1 TO 1 000 : NEXT 
: POKE 36879,106 
2650 FOR R*1 TO 5 : PRIMT :NEXTR 
2780 Z= < H#50 > -(8*1 00 ) + ( X#2@0 > 

2750 PR I NT "[CLEAR 3 PUNTEGGIO IH ";P$ 

2800 PR I NT " [ DOWN ] C RVS 3 TOTALE PONT I C RVOFF 

] *« ; Z 

2850 PR I NT " C DOWN 3 ASTER IODI I NVEST I T I" ; 8 
2900 PRI NT" [DOWN 3 CRVS 3 ALI ENI DISTRUTTI " 

.! X 

2950 PR I NT " [ DOWN 3 G I OCH I ANCORA? " 

3000 I NPUT " [ DOWN 3 C RVS 3 S/N C RVOFF 3 " ; W$ 
3050 IF W$="S" THEN 500 
3100 POKE 36879,44 
3150 PRI NT" COLERE 3 " 

3200 FOR U=1 TO 1 1 : PRI NT : NEXT 
3250 PR I NT " C CLE AR 3 C 9 DOWN 3 [ 2 R I GHT 3 C G I AL 
L030KEV" 

3300 PRI NT 

3350 PR I NT " C RVS 3 C 3 DOWN 3 C G I ALLO 3 Wmmmmi 
3400 END 

3450 FOR P=1 TO 10 

3500 POKE D+ 1 NT < 32#RND ( 1 > > , 42 

3550 FOR J=1 TO Q : NEXT.J 

3600 POKE A+B, 32 

3650 GOTO 1300 

3700 POKE 36879, 127 

3750 PRI NT" CCLEAR3 " 

3800 PRI NT" C4 DOWN 3 C NERO 3 MI I ENO COLF 
ITO m®" 
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3850 POKE 36878,15 

3900 FOR L=1 TO 15 

3950 POKE 36876, 160 

4000 FOR M=1 TO 10 HIIXTM 

4050 POKE 36876,0 

4100 FOR M=1 TO 10 NF;:TM 

4150 NEXTL 

4200 POKE 36878,0 

4250 X=X+ 1 

4300 POKE 36879,8 

4350 GOTO 1000 
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NEVICATA * 


Bianchi fiocchi di neve compaiono sul vostro schérmo fino a che non 
premerete il tasto asterisco *. 

Non sarà molto utile, ma è senz’altro piacevole da guardare. 


10 FRI NT" CCLEflRJ " 

20 SL= I NT c; < 7680+22*23 ) #RNB < 1 > > 

30 IF* SL<7680 THEN 20 

40 F'OKE SL .* 42 ; POKE SL-7680+38400 , I NT < 7 
*RHIK 1 > ) 

50 GET K$ 

60 IF K $="*” THEN 80 
70 GOTO 20 
80 FRI NT" [CLEfìR] " 

•30 FRI NT "PREMERE <Q> PER FINIRE" 

110 FRI NT "PREMERE <R> PER RICOMIN 

CIRRE" 

120 GET HVf- 

130 IF HV$=" " THEN 120 
140 IF HY$="Q" THEI-I 170 
150 IF HV$="R" THEN 10 
160 GOTO 120 
170 END 
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PARALLELEPIPEDO 

★ ★ 


Questa sezione del libro è dedicata alla grafica a colori. 

Troverete un certo numero di nuove ed interessanti applicazioni delle 
capacità grafiche del vostro computer Commodore. 

Gli esempi proposti possono essere modificati o combinati tra loro per 
adattarsi a qualsiasi esigenza. 

I titoli rappresentano solo l’idea originale da cui sono sorti i diversi 
programmi, ma la vostra fantasia potrà dare vita a nuove ed infinite 
creazioni. 

Possono essere modificati i colorì degli oggetti e le posizioni sullo scher- 
mo, nonché i vari movimenti. 


1 0 F'R I NT " C CLEfìR ] " : REM PUL- 1 Z I R SCHF RMO 
20 FRI NT: FRI NT: FRI NT 
30 PR I NTSPC < 5 > ; CHR$ CI 1 1 > ; 

40 FOR L= 1 TO 1 0 : PR I NTCHR* < 1 63 > : HE XT 
50 PRINTCHRTC 112) 

60 FOR L=1 TO 13 

70 PR I NTSPC C 5 > ; CHRf C 1 65 > ; SPC C Un . f HR t < 
1 67 

80 NEXTL 

90 PR I NTSPC C 5 > ; CHR$ C 1 08 > ; 

100 FOR L=1 TO 1 0 : PR I NT CHRf C 1 64 • • NI XT 
110 PRINTCHRtC 186) 
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PIANO * 


Trasformate il vostro Computer in un formidabile pianoforte e lasciate la 
vostra fantasia libera di spaziare tra le note musicali per creare tanti 
piacevoli motivi. 


1 PR I NT " L CLERR 1 C NERO ] " ; 

2 PR I NT " Z RVS ] S I NTET I ZZfiT ORE C R 

VOFF] " 

4 PRI NT "[ROSSO] TI MERI F -'1 - F 7 T B I RNC 
0 ]:? 

7 PR I NT " C NERO ] CRSR 4- NOTA SOMMATA C 
ONT I NUA " : PR I NT : PR I NT " CRSR f- NOTA SO 
MMATA NON CONTINUA" 

5 X=36876 : V- 1 5 : P= 1 5 
9 PRI NT : PRI NT 

10 Z=PEEK< 197} 

12 IF Z=64 THEN F'OKE X, O : POKE 36878, P = 
GOTO IO 

18 POKE 36878, V ; IF V<1 THEN V=1 

19 IF V>15 THEN V=15 

20 IF Z>22 AND Z=C44 THEN A=Z-22^G0T0 


25 IF Z>44 THEN B= 
30 ON ZGOTO 52,54, 
,68,70,72,74,76 


’-44 : GOTO 40 
j 6 , 58 , 60 , 62 , 64 , 1 0 , 66 
1 0 , 1 0 , 78 , 80 , 82 ■ 84 , 8 
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S J «8 


OH 

fiGOTO 

106, 10 

; 10; 

■91; 

■ 93 : 

95, 

37,99, 1 

11. 

■ 110,90 

, 92,94 

,96; 

, 98 J 

• 10; 

. 102 

1 , 10.79. 

81; 

. 83 , 85 







OH 

BGOTO 

0*7 ijù 

i .» >.j y * 

103; 

■ 65; 

. 67 i 

» 63 .• 

r 1 .» i .Ó t t 


5 ,77,1 04 ,51.. 53 , 55 , 57 , 53 , 6 1 , 63 , 1 05 

POKE X, 135 ; GOTO 10 

POKE X, 143: GOTO 10 

POKE X, 147: GOTO 10 

POKE X, 151: GOTO 10 

POKE X, 158: GOTO i@ 

POKE X ,153: GOT 0 1 0 
POKE X, 163 : GOTO 10 
POKE X, 167 > GOTO 10 
POKE X, 175: GOTO iq 
POKE X, 179: GOTO 1.0 
POKE X, 183: GOTO IO 
POKE X, 187: GOTO 10 
POKE X, 189 : GOTO 10 
POKE X, 191: GOTO 10 
POKE X, 201 : GOTO 10 
POKE X, 203 : GOTO 10 
POKE X , 267 : GOT 0 10 
POKE X , 203 : GOTO 1 0 
POKE X, 212 : GOTO 10 
POKE X, 215 -GOTO 10 
POKE X, 217: GOTO 10 
POKE X , 2 1 9 : GOTO 1 0 
POKE X, 221: GOTO 10 
POKE X, 223: GOTO IO 
POKE X, 225 : GOTO 10 
POKE X, 227 ; GOTO 10 
PUKE X , 228 • GU T U 1 W 
POKE X , 229 : GOT 0 1 0 
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79 POKE X, 231 : GOTO 10 

80 POKE X.- 232 : GOTO 10 

81 POKE X, 233: GOTO 10 

82 POKE X.- 235 : GOTO 10 

83 POKE X.. 238 : GOTO 10 

84 POKE X, 237: GOTO 10 

85 POKE X.- 238 : GOTO 10 

86 POKE X.- 239 : GOTO 10 

87 POKE X.* 240: GOTO 10 

88 POKE X/241 : G0T0 10 

89 POKE X. 243 : GOTO 10 

90 POKE X. 244 : GOTO 10 

91 POKE X. 245 : GOTO 10 

92 POKE X • 246 : GOTO 10 

93 POKE X, 247: GOTO 10 

94 POKE X. 248 : GOTO 10 

95 POKE X.. 249 : GOTO 1.0 

96 POKE X, 250: GOTO IO 

97 POKE X, 251 : GOTO 10 

98 PuK.E X, 252 ■ GOTO 10 

99 POKE X.- 253 : GOTO 10 

101 POKE X, 254:. GOTO 10 f 

102 X=36874 : GOTO 10 

103 X=36875 : GOT 0 10 

104 X=368?6 : GOTO 10 

105 X=36877:G0T0 10 

106 P=15 : GOTO 10 

110 FOR 1=1 IO 4: POKE 36878+ I, O : HEXTI :G 
OTO 10 

111 F-0 : GOTO 10 
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PROVA SCHERMO 

★ ★ ★ 

Questo programmino di utilità vi consente di vedere tutte le combinazioni 
di colorì sfondo/bordo che il vostro computer può offrirvi. 


10 POKE 36879, 14: POKE 36869, 242 = DIM A* 
( 17} 

20 COL* = " C B I ANCO ] C ROSSO 3 C fiZZUR 1 E V I OLfl ] 
E VERDE ] C BLÉU ] C G I ALLO ] E V I OLA 3 Z BI ANCO 
3 [ ROSSO 3 C AZZUR 3 C V I OLA 3 C VERDE 3 C BLEU 3 
E G I ALLO 3 C VERDE 3" : C= 1 = R*= " E R VS 3 Z R VO 
FF 3 " : R I *= " C HOME 3 C 23 DOWN 3 " 

30 AS* < 1 > = " E VERDE 3 - E ROSSO 3 [ RVS 3 C RVO 
FF3 " : AS* < 2 > = " C VERDE 3 " C ROSSO 3 [ RVS 3 
[ RVOFF 3 " : AS* < 3 >="E ROSSO 3 [RVS 3 1 [ 

RVOFF 3 " : AS* < 4 ) = " [ ROSSO 3 E RVS 3 1 C RV 

OFF 3 

40 AD* O > = " C RVS 3 [ ROSSO 3 C RVOFF 3 L VERDE 
3 ■ " : AD* C 2> = " [ RVS 3 C ROSSO 3 C RVOFF 3 [ 
VERDE 3 ■ " : AD* ( 3 ) = " E RVS 3 C ROSSO 3 [ R 

VOFF 3 1 " : AD* C 4 > = " E RVS 3 E ROSSO 3 [ RVO 

FF3I " 

50 BS* < 1 > = " [ ROSSO 3 C RVS 3 1 [ RVOFF 3 " : BS 

* C 2 > = " [ ROSSO 3 E RVS 3 1 [ RVOFF 3 " ■ BS* < 

3 >=" E VERDE 3 ■ C ROSSO 3 E RVS 3 [ RVOFF 3 " 

: BS* < 4 > = " [ VERDE 3 " E ROSSO 3 [ RVS 3 E RV 
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OFF]" 

60 BD$ < 1 > = " C RVS ] C ROSSO ] [ R'v'OFF ]| " : EH 

$ ( 2 > = " [ RVS 1 C ROSSO ] [ R'v'OFF 31": EH* < 

3 > - " L RVS ] C ROSSO ] C R'v'OFF 3 C VERDE ] ■ " 
: BD$ C 4 > = " C RVS ] C ROSSO 3 C R'v'OFF ] C VERE 
ED " " 

70 KH$ ( 0 ) = " i 1 " : KH$ CI ) = " I .[ RVS 3 " 

[ R'v'OFF ] ' I " : KH* C 2 ) = " I [RVS 3 C R'v'OFF 3 
■ [RVS 3 ■[ R'v'OFF 3 1" 

80 KH$ C 3 > = " I [ RVS 3 [ R'v’OFF 3 I " : KH$ C 4 

= " I [ RVS 3 [ R'v'OFF 3 ■ [ R'v’S 3 "C R'v'OFF 3 I 

", : KH$ C 5 ) = " I ■[ RVS 3 [ R'v'OFF 3 I " 

90 KH$ C 6 > = " *- » " : KH* C7> = " CLEFT3 V 

IO 20 " : KH$ C 8 > = " COMPUTER C DOWN 3 C 9 LE 
FT3 VIC 20 " 

100 CL$= " C RVS 3 [ ROSSO 3 ERZZUR3 CVIOL 

A3 [VERDE] [BLEU3 [GIALLO] 

[ R'v'OFF 3 " : NE$= " [ B I ANCO 3 

110 FRI NT" [OLEARI " : FOR 1=1 TO 4 : FRI NT T 
AB C 1 > AS$ C I > T AB CI 7) AD* C I > : NEXT 

1 20 FRI NTLEFT* CRI$.< 19) ; : FOR 1 = 1 TO 4 : PR 
I NT TAB < 1 > BS$ C I > T AB C 1 7 ) BDf- CI): NEXT 

1 30 PR I HTLEFTf CRI$, 4) ; : FOR I =0 TO 8 : PR I 
NT TAB C 7 > " [ NERO 3 " KH$ C I > : NEXT 

140 PRIHTLEFTfCRIt, -14>; : FOR 1 = 1 TO S^F’R 
INT TRBC2)CL$ : NEXT 

1 50 PR I NTLEFT* C R I $ , 23 > TAB C 4 > " [ B I ANCO 3 P 
REMI UN TASTO"; 

1 60 PR I NTLEFTf < R I $, 1 7) ; : FOR 1 = 1 TO 5 : PR 
INT TAB(7>NE$ : NEXT 

1 70 V$=M I D$ < COL* .■ C 1 > : RV$=V$+R$ • C=C+ 1 : P 
R I NTLEFT $ < R I* .. 7 ) " ";:IF C=8 THEN C= 
1 

180 FOR 1 = 1 TO 6 : PRINTR'v'*; : NEXT : FOR 1 = 1 
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190 


200 


21@ 


220 


?R0 



260 


270 


280 

290 


TU 4 : PR I NT " L UP ] C LEFT ] " RVT ; : NEXT 
FOR I = 1 TU 9 : PR I HTRV $ ; : NEXT : FOR I = 1 
. TU 4 : PR I NT " l DOWN ] C LEFT ] " R VT ; : NEXT 
FOR ì<= 1 TO 5 : PR I NTRVT ; : NEXT : FOR I = 1 
TO 1 0 : PR I NT " C DOWN ] C LÈFT ] " RVT ; : NEXT 
FOR 1 = 1 TO 5 : FRI NT" [2 LEFT] "RVT ; : NE 
XT : FOR 1 = 1 TO 5 : PR I NT " C DOWN ] C LEFT ] " 
RVT.; : NEXT 

FOR 1 = 1 TO 9 : PR I NT " C 2 LEFT ] " R V* ; : NE 
XT FOR 1=1 TO 5 : PRINT" CUP] [LEFT] "RV 
t; ■ NEXT 

FOR 1 = 1 TO 5 : PRINT" C 2 LEFT] "RVT; : NE 
XT : FOR 1 = 1 TO 9 : PR I NT " C UP ] C LEFT ] " R V 
$; : NEXT 

PR INTLEFT T ( R I T , 7 > : FOR 1 = 1 TO 6 
PR I NT " C 2 RI GHT ] " M I DT < COLT , C+7 , 1 > R I G 
HT$ < NET , 4 > THE < 1 6 > M I D$ < COLf , C+6 , 1 > R 
IGHTf (NET , 4) 

NEXT : PR I NTLEFTT ( R IT, 4 > ; : FOR I =0 TO 
8 : PR I NT TRE < 7 > M I DT < COLT , C+5 , 1 > KHT ( I 
> : NEXT 

POKE 36878 , 8 : POKE 36876 , I NT ( RND CD# 
128 >+128 

GET XT: IF XT= " " THEN 170 

POKE 36876 8 '■ POKE 36878 , 0 : F'iJKE 3687 

9 , 27 : PR I NT " C NERO 1 C CLERR ] " ; 


40 


Questo antico gioco cinese viene qui riproposto fedelmente, fornendovi 
perciò un avversario praticamente imbattile. 

A turnp dovrete togliere da una sola fila per volta quanti fiammiferi 
vorrete. 

Vince chi lascia all’avversario l'ultimo fiammifero da togliere. 


20 CLR •' PR I NT " f CLEAR 3 CB I ANCO D " : POKE 36 
879,8 

30 FRI NT TRE (4)" G IOCO DEL NIM" 

40 FOR K-l TO 22 : PR I NT " - " ; : NEXTK 

50 FRI NT "DISPORREMO DEI FIRMMIF 

ERI SU 3 RIGHE." 

70 FRI NT "CIASCUNO DI NOI POTRÀ- TOGLIER 
E" 

80 FRI NT "QUANTI FIAMMIFERI VUOLE, M 

A DA UNA" 

90 FRI NT "SOLA RIGA . VINCERÀ' CHI TOG 
LI ERA' " 

95 FRI NT" L'ULTIMO FIAMMIFERO." 

100 FOR K-l TO 22: FRI NT NEXTK 

105 FOR K=1 TO 3 

110 FRI NT "QUANTI FIAMMIFERI SULLA "K 

« ✓ R J M ; 

120 GET A$d<> : IF A$<K>="" THEN 120 


1 30 A (. K > -VAL < Af < K > > 

140 IF fi(K)<=0 THEN 120 
1 45 PR I NTAf ( K > : PR I NT : NEXTK 
155 GfiSIJB 1000 

160 FRINÌ "OK - VUOI INIZIARE PERPRIMO ? 

il • 

170 GET Rf •' I F Rf =" " THEN 170 
175 PRINTRf 

180 IF Rf : ="8" THEN 250 
190 IF Rf = " N " THEN 210 
200 GOTO 170 

210 REM MUOVE IL COMPUTER 
2*20 PRI NT "POSSO MUOVERE ? 

230 GET Rf : IF Rf 0"S" THEH 230 

235 PRINTRf 

240 GQSUB 3000 

250 REM MUOVE IL GIOCATORE 

260 PRI NT "VUOI TOGLIERE DALLA RIGA 

9 f| O •"•il ; 

270 GET Rf-IF Rf="" THEN 270 
275 R- VAL <. Rf > 

290 IF R< 1 OR R>3 THEN 270 
295 PRINTRf 

310 PRI NT "QUANTI FIAMMIFERI ?" 

320 GET Rf : I F Rf="" THEN 320 
322 IF VAL <. Rf > =0 THEN 320 
325 PRINTRf 

330 IF A (. R > - VAL ( Rf > <0 THEN GOSUB 1 000 : G 
OTO 260 

340 A < R > =A < R > -VAL ( Rf ) 

350 GOSUB 4000 

360 IF M=0 THEN PRI NT "HAI VINTO TU ! " ■ G 
OTO 500 

370 GOSUB 1000 
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SA fi GOTO 21 0 

50© REM RICHIESTA DI PROSEGUIMENTO 
510 FRI NT "VUOI GIOCARE ANCORA ?" 

520 GET R* : IF R$= M " THEN 520 
530 IF R*="S" THEN 20 
540 FRI NT "CIAO ! " • END 
ì 000 REM STAMPA TABELLONE 
1010 PR I NTCHR$ (147) 

1015 FOR K=1 TO 3 
1017 PRINTK" -RIGA" ; 

1020 IF FKK>=0GOTO 1040 
1030 FOR J=1 TO A ( K ) 

1035 PRINT TAB<6> " I "; 

1038 NEXTJ 

1 040 PR I NT : PR I NT : NEXTK 
1050 FOR K= 1 TO 22 
1055 PRINT"-"; 

1058 NEXTK •• RETURN 

2000 REM ANALISI SICUREZZA DELLA MOSSA 
2010 F=0 •' FOR K~ 1 TO 3 : FOR J=@ TO EOO 
20 1 5 READ B$ < K > : NEXTJ : RESTARE : NEXTK 
2020 FOR K=1 TO 4 : S-8 

2030 BB$ C K > *= " 0 " +M I D$ < B$ < 1 ) , K , 1 > +M I B$ ( B$ < 
2>,K, 1) 

2035 BB$ < K > =BB$ < K > +M I D$< B$ < 3 > , K , 1 > 

2040 READ C$ 

2050 IF THEN RESTORE : GOTO ?H7 

0 

2060 GOTO 2040 

2070 FOR J=1 TO 4 : S J ) =VAL ( M I Df ( C$ .■ J .. 1)> 
2075 S=S+S<J>: NEXTJ 

2080 IF S=0 OR S=2 OR S=4 OR S=6 THEN 20 
90 

2085 IF S=8 OR S= 1 0 OR S=12 THEN 2090 


i 
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2088 F=l: RETURN 

2090 NEXTK : F=0 : RETURN 

3000 REM DECISIONE E MOSSA 

30 1 @ FOR K~ 1 IO 3 : E < K > =A ( K > : NEXTK 

3020 V=1 

3030 IF E ( V > =8 THEH B( V >=R( V) : GOTO 3050 

3040 B<V)=B<V)-1 : GOSIJE 2000 

3042 IF FO0 THEH 3030 

3045 FOR K= 1 TO S : A<K>*B<K) : NEXTK 

3048 GOTO 3110 

3050 IF V=3 THEH 3070 

3060 V=V+1 : GOTO 3030 

3070 GOSUB 4000 

3090 X= I NT ( M#RND '• 1 > + 1 > 

3100 fì<W)=M-X 

311 0 GOSUB 1 000 

3115 GOSUB 4000 

3120 IF MO0 THEH RETURN 

3130 FRI NT "HO VINTO IO!" : GOTO 500 

4000 REM RICERCA HUH. MAX PER RIGA 

4005 M=@ : W=0 

4010 FOR H=1 TO 3 

4015 IF A<H»M THEH M=A<H) : W=H 

4020 NEXTH 

4030 RETURN 

4050 REM HIJM MAX=M, SULLA RIGA M 
5 0 0 0 DATA 0 0 0 0 .. 0 0 0 1 , 0 0 1 0 , 0 0 1 .1 .■ 0 1 0 0 , 0 1 0 1 , 
0110.0111 

50 1 0 DATA 1 000 , 1 00 1 , 1 0 10,1011,11 00 ,1101, 

1110,1111 

31130 FRI NT "HO VINTO IO !":GOTO 500 
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GENERATORE 
DI LABIRINTI * 


Il computer riempirà il vostro schermo con un labirinto generato da valori 
casuali. 

Lo studio di questo programma potrà esservi utile per la futura creazione 
di giochi a percorso. 


95 PQKE 36879 , 8 : PR I NTCHRS 
HR$ C 1 42 > .. CHR$ (! 1 47 > 

100 DIM li 0:0 


5 > ; CHRf e; 8 


110 fì < 0 > =2 : fl< 1 > =-44 : fi < 2 > =-2 : fì < 3 =44 
1 20 HL= 1 60 '• HL=32 : 3U=7680 : fi=SC+45 
140 FOR 1=1 TU 21 
150 PRINTCHR$(18> : 

153 FOR W=1 TU 21 
155 PRIMTCHR$032> : 

157 NEXTU : FRI UT 
160 NEXTI 
210 POKE li.. 4 
220 ,T= I NT < RND C 1 > *4 > : X=,T 
230 B=Fi+flÓJ) : IF PEEK<B>=WL THEN POKE B, 
J : P 0 K E H + li J ) / 2 .■ H L : R = B • 0 U T U 2 2 0 
240 J=CJ+l>*-OK3> : IF JÓX THEN 230 
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GRAFICA * 


Quello che segue è all’apparenza un programma abbastanza comples- 
so, ma che illustra brillantemente alcune delle più elementari capacità 
grafiche del vostro computer. 

Date i valori alle variabili e, dopo una breve attesa verrà disegnata una 
sinusoide, e in seguito... ai più bravi scoprirlo! 


0 C=5 : B= 1 30 : II=-50 : E=0 

1 F'R I NTCHR* < 1 47 > ; CHR$ < 5 > : POKE 36879 , 8 

2 FOR 1=6143 TO 7679 : POKE I,0:NEXTI : P 
OKE 5 1,255: POKE 52, 24: POKE 55,255:P 
OKE 56 , 24 

5 PR I NT " [ CLEflR 1 UN I Tfì - X " ; C .: : I NPUT 

" C6 LEFT ] " ; C 

6 PR I NT " [ CLEflR ] UN I Tfì V " ; B ; : I NPUT 

" C6 LEFT] " ; E 

7 PR I NT " C ClEflR ] VETTORE V " ; D, I NPUT 

"C 6 LEFT]";B 

8 PR I NT " [ CLEflR J VETTORE X " J E : : I NPUT 

"[6 LEFT]";E 

9 PR I NTCHR$ <'.147 > 

20 POKE 36869 , 254 : H=7933 : 0=6 1 44 : X=-89 
30 DEF FNF < X ) =S I N < X ) /X 
40 X=X+ 1 : IF X>87 THEN 75 
45 IF X/C-E-0 THEN 40 
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50 V= I NT < EsfeFMF < X/C-E > +D : I F V>95 OR V< 
-88 THEN 40 

55 M';=X/3 : Z=X-MJi#8 : NX=V/3 : T=V-N2*8 
60 fl=H-22*N^+M*MF PEEKCF0O32 THEN L= 
PEEKCR) : GOTO 70 

65 J=J+1 : L=.J : IF J=32 OR J=31 THEN 65 
70 K=G+C7-T>+8*L. : POKE K,2tC7-Z> OR F'EE 
KC.K> ■■ POKE L : GOTO 40 
75 GET fì$ : IF THEN 75 

80 PR I NTCHRf CI 47 ) : POKE 36869 , 240 : .J=0 : G 
OTO 2 
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BIORITMI * 


Un utile programma per conoscere il vostro attuale stato di salute fìsico, 
psicologico e-mentale. 

I bioritmi sono tre cicli sinusoidali rispettivamente di 23, 28 e 33 giorni 
riguardanti il primo lo stato fisico di un individuo, il secondo lo stato 
emotivo e l’ultimo quello intellettivo. 

Ogni volta che una curva attraversa l’asse delle ascisse dall’ alto verso il 
basso si ha un calo della propria potenzialità. 

II programma prevede inoltre il confronto della compatibilità di diversi 
bioritmi. 


1 PRIHT" CCLÉfìR] " 

100 DIM fl(12), X<3> .• J < 3 > , CIK3, 2> , R<3 > , S< 
3) •' FOR 1 = 1 TO 1 2 : REfìD H< I) ■ NEXT : DEF 
FNV C I > =28- <■ I /4= I NT < I /4 > > 

102 P (1 > = 1 6 : P <2 > =5 : P < 3 > =9 : M$= " GENFEEl'lfiR 
flPRMflGG I ULUGRGOSET OTTNOVD I C " : W$= ” LM 
MGVSD" 

108 SP$=" " : Ff=" CHOM 

E] C22 DOWN] 

1 1 0 DEF FNP < I ) =8 119-1 NT < I + 1 1 . 5 > *22+ 1 NT < 
CQ+l >/2> 

120 DEF FNS < I > =8*8 1 N < ( T/ 1 - 1 NT ( T / 1 > ) *2*tr 

1 56 PR I NT " [ HOME ] " ; : GOSUB 9070 : PR I NTFf ; : 
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GOSUB 9070 

1 57 F'R I NTF* ” C 2 1JF 3 C VERDE 3 1 STRUZ I OH I ? " ; 

: GOSUB 9060: IF i$="N" THEH 200 
1 60 PR I NT " [ CLEflR 3 E ELEO 3 C 2 DOWN 3 1 NTRODUC 
I COSI x I DAT I : E 2 DOWN 3 E ROSSO 3 MESE/G 
IO/RNNO 

1 75 PR I NT " E 2 DOWN 3E ROSSO 3 < 8/ 1 3/57 E BLEU 3 
=AGO 1 3 , 1 957 > " : PR I NT " E 3 DOWN 3 E V I OLfi 
3 USARE LE BARRE!" 

1 82 GOSUB 9050 : PR I NT " E OLE AR 3 E DOWN 3 E M I N- 
MAI3-TT L* *1 *'\ Us .♦* • ¥1-. -T 

1 85 PR I NT " E ROSSO 3 E 2 DOWN 3 F 1 E BLEU 3 ./UOVO 

QUADRO " : PR I NT " C DOWN 3 E ROSSO 3 F7 E BLEU 
3 ♦TANFO ALTRI 20 DI' 

1 86 PR I NT " E DOWN 3 E ROSSO 3 “E BLEU 3 G I ORN I 
CR I T I C I" : PR I NT " E DOWN 3 E ROSSO 3 • E BLEU 3 

ESC I ” : PR I NT " E DOWN 3 E ROSSO 3 -E BLEU 3 
-ONFRONTA" : GOSUB 9050 
200 PR I NT " E MA I USO . 3 E CLEflR 3 E DOWN 3 E BLEU 3 S 
TAMPA DA " : PR I NT " < ME/D I / AN > ELEFT3 E IJP 
3";: GOSUB 1000: IF 11=0 THEN 200 
210 M1=I1 :D1=I2: V1=I3:D0=D1 :FOR 1=1 TO 
M 1-1 : D0=D0+A':. I > : NE/T 
2 1 5 D3=V 1 *365+D0 : FOR 1 = 1 TO V 1 - 1 : D3=D3- 
C I /4~I NT < I /4 ') > : NEXT 
220 PR I NT " E HOME 3 E 5 DOWN 3 E BLEU 3 NASO I TA 
GOSUB 1000 IF 11=0 THEN 220 
225 M= 1 1 : FOR I = 1 TO M~ 1 : 1 2= 1 2+A < I > : NE/T 
: GOSUB 890 : D= 1 2 : V= 1 3 
270 PR I NT " C DOWN 3 CONFRONTO? " : GOSUB 9060 : 

R=@ : T3=0 : IF I*="N" THEN 300 
280 R=1 : PR I NT " E HOME 3 E 9 DOWN 3 NASO I TA 2 ” 

; : GOSUB 1000: IF 1 1=0 THEN 288 * 
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290 FOR 1 = 1 TO 1 1 - 1 : 12= 1 2+ft a > = NEXT : T3= 
T : GOSUE 8ti0 : GOSUE 820 

300 IF TC0 OR T3<@ THEN PRINT" [RVS3SI C 
ONTA DALLA TUFI " : PR I NT ” C RVS 3 NASO I T A 
GOSUE 1030 : GOTO 200 

400 PR I NT '• [ CLEflR ] C 2 DOWN ] C ROSSO ] fl "MI Ut 
< M$ , 3*M 1 -2 , 3 > D 1 " , " V 1 + 1 900 : PRINT" [ DO 
WN3HAI VISSUTO PER BEN" : PRINT" C LEFT 
3 [DOWN3"T "GIORNI 

500 GOSUE 9050 ^ F'OKE 36879 , 8 : PR I NT " [ CLEA 
R 3 [ AZZUR ] " LEFTf < F$ , 9 > : FOR I = 1 TO 20 
: PR I NT " [ NERO ] - C AZZUR 3 " ; : NEXT I 

50 1 PR I NTLEFTT < Ft , 1 9 > " C NERO ] C RVS 3 " SP$ •' T 
2=1*11 

510 PRINTLEFT$<F$, 19) " [NERO] [RVS] 

m , 3*M 1 -2 , 3 > V 1 + 1 900 " [ RVOFF ] " ; •' PR I NT 
LEFT$(F$..20) : 

6 0 0 FuR! 1 = 1 Tu ’ò • J I j =0 • R ( I j =0 • FOR .J=0 
TO 2 : CD< I .. J > =0 : NEXT ,T , I : FOR Q=1 TO 4 
0 : I F Q/2=INT <Q/2) THEN 618 

6 1 0 E=D3- 1E= I NT ( 7* < E/7- 1 NT < E/7 ) ) + . 5 > + 1 
: Et =f*1 1 B$ (. STR$ < D 1 > .■ 2 ) 

615 FRI NT " [ BLEU 3 [ RVS 3 "MI D$ < m , E , 1 ) " [ RVO 
FF 3 [ DOWN 3 [ LEFT 3 " LEFT$ < Et - , 1 > " [ DOWN 3 " 

: I F LEN C Et ) > 1 THEN PR I NT " [LEFT 3 " R I 
GHTtCEt, 1>; 

617 PRINT" [2 UP3"; 

618 POKE 36878, 3 - FOR 1=1 TO 3:X=FNS<18+ 
I #5 ) : GOSUE 32@ • R ( I ) =R( I ) - ( SGN (. X ) = 
SGN < FNS < 18+1*5 > > > *2.5: GOSUE 820 

619 IF XC.6 AND X>-.6 THEN CD<I, J(I>)=M 
1*100+D1 : J(I)=J(I)+1 

620 Z=PEEK < FNF' < X ) ) : I F Z=32 OR 2=45 OR Z 
=P C I ) THEN POKE FNP < X > , P < I > : POKE FN 
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PCX >+54272, 1+3 

622 GUTU 630 

625 POKE FNP C X > , 42 

630 NEXT : D3=D3+ . 5 : T=T+ . 5 : T3=T3+ . 5 = D 1 =H 1 
+ .5 

640 IF D1>=RCM1 > + l THEN Dl = l : M1=M1+1 : IF 
Ml>12 THEN Ml = l : V 1 =V 1+1 

650 NEXT: POKE 138,0 : IF T20M1 AND DB IO 
1 THEN PRINTLEFTTCFT, 19>"'C 1 1 RIGHT] 
C NERO ] C RVS ] " M I D* < M$ , 3#M 1-2, 3 > V 1 + 1 90 
0 

655 PR I NTF$ " C VERDE ] PREM I FI , F7, C , Q " ; : I F 
R=1 THEN PRINT" , R"J 

730 GOSUB 9060: I=fìSCCI$> : IF 1=133 THEN 
200 

735 IF 1=81 THEN PR I NT " [ CLEHR ] [ VERDE 1 " : 
POKE 5328 1,0: END 

745 IF 1082 OR R=0 THEN 750 

746 PR I NT " C CLERR ] [ E I ANCO ] COMPAT I B I L ITA " 

: PR I NT " C DOWN 3PI S : " R CI > M X " : PR I NT " EM 
OT : " R C 2 > " X " : PRINT" I NT. " 

750 IF 1=136 THEN 400 

780 IF 1067 THEN 655 

785 PR I NT " C CLERR ] C ROSSO ] C RVS ] G I ORN I CR I 
T I C I " : PR I NT " [ 2 DOWN 1 [ RVS ] P C RVOFF ] S 
I C . C 2 RI GHT ] C RVS ] E l RVOFF ] MOT . C 2 R I G 
HT ][ RVS ]I [RVOFF] NT. " 

790 FOR 1=1 TO 3-FOR J«0 TO 2:IF CDCI, J 
> =0 THEN 794 

79 1 K2= I NT C CD C I , J > / 1 00 > : K 1 =CD < I ■ J > -K2# 1 
00 : K2=K2-1 

792 PR I NTLEFTf C F$ , 6+2* J > TRE C C I - 1 > *7 > M I 
l\% C ET , K2*3+ 1 , 3 > STRT C I NT C K 1 > > 

794 NEXTJ, I : GOTO 655 
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800 T=0 ; IF VI =13 THEH 810 
805 FOR I = I 3+ 1 TQ V 1 - 1 : T=T- < I /4= I NT C I /4 
> > : NEXT : T=T- < 1 3/4= I NT < 1 3/4 > RND » 1 2> 
58) 

8 10 T=T+ < V 1 - 1 3- 1 - < D0>= 1 2 > ) *365- t D0>= 1 2 ) 
* < D0- 1 2 > - ( D0< 1 2 > # ( 365- 1 2+DO > : RETURN 
820 K2=T : T=T3 : T3=K2 : RETURN 
1 000 1=4:1 NF’UT I $ : 1 1 = VAL < LEFTT< I $ , 2 > > : I F 
M I DT < I T , 2 , 1 ) > " 9 " OR M I DT ( I T , 2 , 1 > < " 
0" THEH 1=3 

1 005 1 2= VAL '• M I Ii$ C IT, 1 , 2 > > : 1 3= VAL < R I GHT $ < 
I f , 2 ) ) : H < 2 ) =FNV ( 1 3 ) : IF II >12 OR IK 
1 THEH 1030 

1020 IF I 2>0 HND I2<=flCIl> THEH RETURN 
1030 PR I NT " C RVS ] NON VALIDO- " :FOR 1=0 T 
0 1 500 : NEXT : PR I NT " C CLEAR 3 " : 1 1 =0 : RET 
IJRN 

9050 PRINTFT" CUPI CELEU3 PREMI UN TASTO” 
9060 GET IT : IF IT= , ’ ,, THEN 9060 
9065 RETURN 

9070 FOR I ? 1 TO 2 1 •' PR I NTM I UT ( " C NERO 3 C B I R 
NCO 3 [ ROSSO 3 C RZZUR 3 C V I OLA 3 C VERDE 3 C BL 
EU 3 CGI ALLO 3 ” , I + C I >8 > *8+ C I > 1 6 > *8 , 1 ) " 
[ RVS 3 “ ; : NEXT : PR I NT " C VERDE 3 L RVS 3 C LE 
FT 3 CI NST 3 C RVOFF 3 " : RETURN 
9 1 00 DAT R 31, 28 ,31, 30 , 3 1 , 30 , 3 1,31 , 30 , 3 1 , 
30,31 
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* * 


2. Numeri 


* * 


DIFFERENZA DATE 

★ ★ 


Quanti giorni ci sono da oggi al primo gennaio del 2000? 

Chiedetelo al vostro computer e lui saprà dirvelo con esattezza, e. 
velocemente! 


1 0 PR I NT " C CLEfìR ] C 2 DOWN ] C RVS ] NUMERO 

DI GIORNI TRA 2 DATE- 

<00, MM, AA> CRVOFF3 " 

20 FRI NT 

30 FRI NT "PRIMA HATA" 

40 INPUT DI, MI, VI 
45 FRI NT 

50 FRI NT "SECONDA DATA" 

60 INPUT D2,M2,V2 
70 M~M 1 
80 D=D1 
90 V=Y1 
100 GOSUB 230 
110 N=A 
120 M=M2 
130 D=D2 
140 V=V2 
150 GOSUB 230 
160 N=A-N 
165 FRI NT 
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170 PRI NT "DIFFERENZA = " : PRINTN" GIORNI 
180 FRINÌ 

190 FRI NT "ALTRI DATI CS/N)": 

200 INPUT yJ$ 

210 IF X*«"S" THEN 28 
220 GOTO 460 

230 ON MGOT 0 260 , 230 .■ 260 .. 340 .. 260 .. 340 .. 26 
0 , 260 .• 340 .. 260 .■ 340 .. 260 
240 FRI NT "DATA IRREALE" 

250 RETURN 

260 IF D>3 1 THEN 240 
270 GOTO 350 

280 IF V/4-O'INT <V/4> THEN 310 

290 IF V/480== I NT < V/400 > THEN' 320 

300 IF V/ 1 00O-I NT <. V/ 1 00 > THEN 320 

310 IF D>28 THEN 240 

320 IF D>29 THEN 240 

330 GOTO 350 

340 IF D>30 THEN 230 

350 DATA 0 , 3 1 , 59 , 90 , 120,151,1 8 1,212 

35 1 DATA 243 , 273 ,.304 , 334 

360 RESTARE 

361 FOR Q=1 TU M 

362 READ A 

363 NEXTQ 

380 A=A.+' V#365+ 1 NT C V/4 > +D+ 1 - 1 NT < V/ 1 00 >+ 1 
NT C V/40A > 

390 IF I NT CV/4 > O V/4 THEN 458 

410 IF V/400-1 NT-:.' V/400 > THEN 430 

420 IF V/ 1 00= I NT < V/ 1 00 > THEN 440 

430 IF M>2 THEN 450 

440 A=A-1 

450 RETURN 

460 END 
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GIORNO 

DELLA SETTIMANA 

★ * 


Che giorno della settimana era il 15 ottobre del 1943? Oppure in che 
giorno della settimana è nato un vostro più caro amico? La risposta alla 
velocità del vostro fedele computer. 


1 0 PR I NT " C CLERR 3 E 2 DOWN I C RVS ] 6 1 ORNO DE 
LLfi SETI I MfiHfi C RVOFF 3 11 
2S FRINÌ 

30 PRINT"< INSERIRE 0,0, O PER T 

ERH I HfiRE > " 

35 PRTNI 

40 PR I NT " G I ORNO , MESE , fiNNO ” , 


50 

INPUT D , M , V 


60 

IF MO0 THEN 

100 

70 

I F 1)00 THEN 

1 00 

p, Q 

]*F VO-0 THFM 

1 00 

90 

GOTO 360 


1 00 

IF M>2 THEN 1 


110 

M=M+ 1 2 


120 

V=V-1 
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1 30 N=D+2#M+ 1 NT < . 6* < M+ 1 > > + V+ 1 NT < V/4 > - 1 N 
T < V/ 1 00 > + 1 NT < V/400 > +2 
1 40 H- 1 NT < < N/7- 1 NT < N/7 ) > *7+ . 5 > 

1 50 IF N>0 THEN 180 

1 60 PR I NT " C DOWN ] L RVS ] DOMEN I Cfl C RVOFF 3 " 

170 GOTO 340 

188 IF N>1 THEN 210 

1 90 PR I NT " C DOWN ] C RVS ] LIJNED I C RVOFF ] " 

200 GOTO 340 

210' IF N>2 THEN 240 

220 PR I NT " C DOWN 3 L RVS 3 MERTED I ■" C RVOFF 3 " 

230 GOTO 340 

240 IF N>3 THEN 270 

250 PR I NT 11 C DOWN 3 [ RVS 3 MERCOLEB I " C RVOFF 3 M 

260 GOTO 340 

270 I.F N>4 THEN 3O0 

280 PR I NT " C DOWN 3 C RVS 3 G 1 0 VED I •: [RVOFF 3 " 

290 GOTO 340 

300 IF N>5 THEN 330 

3 1 0 PR I NT 11 [ DOWN 3 [ RVS 3 VENERO I " C RVOFF 3 " 
320 GOTO 340 

330 PR I NT " [ DOWN 3 [ RVS 3 SABATO [ RVOFF 3 " 

340 PRINT 
350 GOTO 40 
360 END 
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IDENTIFICATORE 
ALFABETICO * * 


Il programma converte un numero compreso tra 0 e 26 nel corrisponden- 
te carattere alfabetico. 

Osservate come per il programma di conversione si faccia uso dei 
comandi READ e DATA. 


10 PRINT" CCLEAR] " 

20 PRINT" INTRODUCI IL NUMERO DI UNA LET 
TERfi " 

30 FRI NT "DELL" ALFABETO DA 1 A 

26 " 

40 INPUT H 

60 IF N< 1 OR N>26 THEN PRINT" C 2 UF']" ■' 0 
0T0 40 

70 FOR L=1 TO N 
80 READ- A$ 

90 NEXT 
100 PRINT 

110 PRINT "LA LETTERA CORRISPONDENTE AL 
NUMERO " ; N " E : :[ RVS ] " ; A$ 

120 SET A* ; IF THEN 120 

200 POR L=1 TU 17: PRINT: NEXT: PRINT" COLE 
AR]" 
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PERCENTUALI * * 


Di solito è più pratico introdurre percentuali espresse in punti per 100 
piuttosto che doverle convertire in decimali. 

Naturalmente il computer per lavorare ha bisogno dei valori decimali. 
Questo programma trasforma appunto dei valori percentuali in decimali. 


10 FRI NT" CCLERRJ l! : CLR 

20 INPUT "PERCENTUALE : ";P 

30 D=0. 01#P 

4U PR I NT " DECI MALE' ";D 

50 F'R I NT ' PR INTOPPI NT 

69 CLR : GOTO 20 


60 


SISTEMI LINEARI 

★ ★ 

Come . tutti i computer anche il vostro VIC-20 ha delle capacità 
matematiche non indifferenti. 

Ecco come sfuttarle nella risoluzione di un sistema lineare di equazioni 
ad -n- incognite. 


200 PR I NT " [ CHEFIR ] C DOWN 3 R I SOLUZ I ON 

E " : PR I NT " •' 

201 PRINT" DI SISTEMI " : FRI NT" 

__ li 

202 PR I NT " DI EQUflZ I UNI L I NEflR I " : PR I NT " 


300 PRINT" L 2 DOWN] DI QUANTE EQUAZIONI S 
I COMPONE IL SISTEMA" 

301 INPUT N 

310 IF H<1 THEN PRINT"! DOWN 3 IMPOSSIBILE 
! RIPETI !" : GOTO 301 

320 IF NMS THEN PRINT" [ DOWN ]MI DI SPI AC 
E, NON ACCETTO PIU" DI Q 

IJ INDICI EQUAZIONI" : END 
330 D I M A < N , N > , R < N > , V < N > 

340 PR I NT " [ DOWN 3 LE"; N .: " I NCOGN I TE " 

350 PR I NT " SARANNO I ND I CATE CON X 1 . . . X " 
:MID$<STR$00,2, 10) 

360 OOSUB 900 : FOR J=1 TO N 
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370 

380 

390 

400 

410 

420 

430 

500 

510 

520 

530 
900 
910 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2 1 00 
2105 


2106 

2110 

2120 


FRI NT "SCRIVI I PARAMETRI BELL "E Q 

UA2I0NE H ;J 
FRI NT : FQR K=1 TO N 
PR I NT ” COEFF I GENTE B I X " ; M I D* < STR$ C K 
>,.2,. 10> 

I NPIJT fi < J , K > : PR I NT : NEXT 
I NPIJT " TERM I NE NOTO " ; R < J > 

GOSUB 900 : NEXT 
GOSUB 2000 

PR I NT " Lfi SOLUZ I ONE E " " : PR I NT 
FOR J=1 TO H 

PR I NT " X " ; M I B* < STRf < J >,2,1 0 > ; " = " ‘ V < 
J> 

NEXT : END 

FRI NT : FRI NT" " 

PRINT: RETURN 

I F N= 1 THEN V < 1 > =R < 1 > /fi < 1 , 1 > : RETURN 

FOR K=1 TO N-l 

I=K+1 

L=K 

IF fiBS CACI , K > > >ABS C fi •:! L , K > > THEN L=I 
IF I CN THEN 1 = 1 + 1 : GOTO 2040 
IF L=K THEN 2100 

FOR J =K TO N : Q=fi < K , J > : A < K , J > =fi (. L , J > 

FKL, j>=Q : NEXT 

Q=R K > ; R ( K > =R < L > : R < L > =0 

I=K+1 

IF FKK,K>=0 THEN PRINT"C'E'UN ERROR 
E; IL SISTEMA E-‘ [RVS 

] I MPOSS I B I LE [ RVOFF 1 " 

IF FKK, K>=0 THEN END 

Q=fì C I , K > /fi < K , K > : FK I , K > =0 

FOR J=K+ 1 TO N : A< I , T > =A C I , J > -Q*fi < K , 

J> NEXT 
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2 1 30 R <: I > =R < I > -Q*R < K > = I F I <N THEN 1*1+1 = 
GOTO 2110 
2140 NEXT 

2145 IF FKN,N>=@ THEN PRINT"C'E'UN ERROR 
E; IL. SISTEMA E " C RVS ] I MPOSS I E I LE C RV 
OFF]" 

2146 IF fi(N,H>=0 THEN END 

2150 V < N > =R ( N > /fl N , H > : FOR I=N-1 TO 1 STE 
P -1 

2160 Q=0'FOR J=I + 1 TO N : G=Q+FK I .. J>#V< J) 

2 1 70 V < I T- ( R < I > - Q > /fì C I , I > : NEXT : NEXT 
2180 RETURN 
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ORDINAMENTO 
ALFABETICO * * 


All’inizio vi verrà domandato quanti elementi numerici o alfabetici volete 
mettere in ordine alfabetico. 

In seguito la visualizzazione avverrà in gruppi da 20 elementi. 

Premete il tasto (c) per continuare la visualizzazione. 


1 0 PR I NT " t CLEflR ]' [ 2 DOWN 3 [ RVS 3 ORD I NRMEN 
TO RLFflBET I CO C RVOFF 3 " 

20 PRINT 

30 FRI NT "-INTRODURRE 0 PER TERMI N 

ARE IL PROGRAMMA" 

35 PRINT 

40 PRINT "NUMERO DI VOCI": 

50 INPUT N 

60 IF N=0 THEN 330 

70 DIM R:fCN> 

80 FOR 1=1 TO N 
90 PRINT "VOCE" . I 
100 INPUT H$< I > 

110 NEXTI 

1 1 5 PR I NT " [ CLEAR 3 C R I GHT 3 " 

120 M=N 
130 T=M/2 
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131 M= I NT < T ) 

140 IF M=0 THEN 280 
150 K=N-M 
160 J=1 
170 I=,T 
180 L=I+M 

190 IF fl$CIX=fì$CL) THEN 250 
200 T$=fì$ CI) 

210 fìl(l)=fl$CL) 

220 fl$CL>=T* 

230 t- I-N 

240 IF I>=1 THEN 180 
258 JssJ+l 

260 IF J>K THEN 130 

270 GOTO 170 

280 FOR 1=1 TO N 

282 IF I/20OINTCI/20) THEN 290 

284 FRI NT" LRVSI CO PER CONTINUARE CRVO 
FF] " 

285 GET Ci: IF CÌO ,, C" THEN 285 
290 PRINTAiU ) 

300 NEXTI 
310 FRI NT 
320 CLR : GOTO 40 
330 END 
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DA ESADECIMALE 
IN DECIMALE * * 


I primi calcolatori inventati dall’uomo “masticavano" solo numeri binari. 
Noi siamo abituati a contare in base dieci. 

Oggi la tecnologia del silicio ha generalmente adottato la base 16 per 
velocizzare i calcoli meccanici. 

Questo programma vi permetterà di acquistare familiarità con i numeri 
esadecimali, trasformandoli in numeri decimali, per noi di più immediata 
comprensione. 


10 

F2 

=4096 • F:-:=256 

: F4= 

= 16 



20 

PR 

INT" CCLÈRRÌC 

ONVt 

IRSIO 

INE 



Ufi 

ESRBECIMRLE 



IN DEC 

;IMRLE 



MAX ^ • 


Il 

1 1 



30 

INPUT V$ : 'IF LEN (Vi 

f» 4 

THEN 

RUH 

35 

IF 

LEMCr'f ><4 T 

NEH 

PR I NT " L IJP 3 RGG I I.JHG 


I 

GLI ZERI PER 

LE 

UlFR 

E NON 




S I GN I F I CRT I VI 

E " : C 

jQT 0 

2000 


40 

R* 

=LEFTf<Y*»l> 

: y.$ z 

=R* : G 

OSUB 1 

000 

50 

H= 

S#F2 





60 

B$ 

=MIIif (VT,2, 1 

> ^ XI 

P=B* : 

gosub 

1 000 

70 

B=: 

S*F3 





30 

C& 

=N III* 'Ut'*, 3.. 1 

• Xi 


GOSUB 

1 000 
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3*0 

c=s 

#F4 





100 


RIGHTf ( 

V$ , ì> 

: X$~l 

"i$ : GOSUB 

110 

n=s 






120 

T=H 

+E+C 

+D : 

PRIMI 

"CUPI " . T 

1 30 

GET 

Z$ ■ 

IF 


THEf 

■1 1 30 

150 

GOTO 30 





1 000 

IF 


f!" 

THEN 

3=10 

RETURN 

1010 

IF 

X$~' 

E" 

THEN 

3=11 

RETURN 

1020 

IF 

Xt=’ 

C" 

THEN 

3=12 

RETURN 

103p 

IF 

X$~' 

D” 

THEN 

3=13 

RETURN 

1 040 

IF 

X$~' 

E" 

THEN 

3=14 

RETURN 

1 050 

IF. 

x$=* 

F” 

THEN 

3” 15 

RETURN 

1 060 

C' ■, ,* 

REO- 

t) 




1070 

RETURN 





2000 

F OR 

GG- 

1 T 

0 2000 : NEI 

cn RIJN 


67 


NUMERI DEI CARATTERI 

* ★ 

Questo breve programma mostra il valore ASCII per ogni carattere della 
tastiera, accanto al carattere che rappresenta. 

Sarai rapidamente in grado di dire quale carattere corrisponda ogni 
numero del codice ASCII. 

Nella linea 40 c’è un temporizzatore per permettere una lettura a tempo 
delle informazioni. 

Agendo sul numero 400 della linea 40 è possibile abbreviare o allungare 
il tempo di permanenza delle immagini sullo schermo. 


10 FRI NT" CCLEflR] " 

20 FQR N=33 TO 127 
30 PR I NTN , CHRf < N > : PR I NT 
40 FQR T=1 TO 400 : NE NT T 
50 IF N=255 THEN 20 
60 NE NT N 

70 FOR N- 161 TO 255 
80 GOTO 30 
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SIMULATORE 

DI CALCOLATRICE RPN 

★ ★ 

Il vostro computer può essere predisposto per lavorare come una 
calcolatrice funzionante col sistema RPN (il termine RPN non è altro che 
l’acronirfio di Notazione Polacca Inversa). 

Per eseguire un calcolo digitate un numero seguito immediatamente dal 
simbolo di un operatore aritmetico. 

Il tasto STOP pone fine al programma. 


10 

FRI NT" 

LCLEfiRT" : REM 

PULIZIfi SCHERMO 

20 

Ni=" " : 

Xi=" " 


25 

PRINTTi 


35 

GET Hi 

: IF Ni=" " THEN 35 

40 

IF fiSC 

(HÌK42 OR fi :E 

C( Hi >>57 THEN 35 

50 

IF fiSC 

( Hi > =46 OR fì'r 

C(NÌ»47 THEN Xi 


=XÌ+Ni 

: GOTO 35 


60 

IF fise 

( Hi > =42 THEN 

1 1 00 

65 

if fise 

(Hi >=43 THEN 

1200 

70 

if fise 

(Hi >=45 THEN 

1 300 

80 

if ose 

(Hi >=47 THEN 

1 400 

90 

GOTO 10 


1100 

X=VRL( 

Xi> ; T=T*X 


1120 

GOTO 1420 
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1200 

K=VfìL(X$> : 

4- 

H 

il 

h“ 

1220 

GOTO 1420 


1 300 

X=VfìL<X*> 

: T= | 

1 320 

ijijTU 142U 


1400 

X= VAL < X$ > : 

t=t/: 

1420 

T$=STR$ < T : 

1 

1430 

G.UTO 10 




INVERTITORE DI NUMERI 

* * 

Dai al tuo computer un qualsiasi numero di tre cifre e come, risultato lo 
rivedrete capovolto. 

Per esempio 234 vi verrà trasformato in 432. 


i 

10 PRIHT" HCLEfiR] " • CLR 

28 PRIHT" IHT0HUCJ. UH NUMERO IH 3 CIFRE 
<1 

•30 INPUT N 

40 IF HC100 OR N>999 T-HEN PRIHT" C 2 UP] 
" : GOTO 30 
50 fì= I NT <. N/ 1 60 > 

60 B- 1 NT < 1 0+ < < H/ 1 .00 > -fi > ) 

70 C= VAL < R I GHT f ( STR$ t H > , 1 > > 

30 f’R I NT : PR I HTR I GHT $ < STRf < C > 1 > ; R I GHT $ 
(. STRf < B > , 1 > ; R I GHT $ < STRf < fi > , 1 > 

90 PRIHT -PRIHT: PRIHT 
100 CLR : GOTO 20 
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INTEGRALI * * * 


Questo utile programma permette il calcolo di integrali anche molto 
complessi. 

Di volta in volta dovrete inserire nella linea specificata dal programma la 
funzione di cui vorrete studiare gli intervalli di integrazione. 


y 

PQKE 

3687 

3, 3 : FRI NT "[VERDE 

21" 


150 

N=2 





160 

V=22 1 





200 

FRI NT 

"CCL 

ERRI INTEFRFlLE C 

ALC 

JLAT 0 


CON LA 

FORMULA " ; FRI NTS 

PC-:: 

4) " DI 


SIMPS 

ON" 




220 

FRI NT 

"ATTENZIONE" 



240 

FRINÌ 

"Lfì 

SUBROUT I NE 

ALLA LI 


NEH 5 

000- 

5999 DEFINISCE" 



260 

FR I NT 

"V C 

OME FUNZIONE DI 

it 

/. 


300 

FRI NT 

; FRI NT "LIMI TE INFERI 

ORE 

DI X" : 


INPUT 

L 




310 

FRI NT 

FRI NT" LI MI TE SUPERI 

ORE 

DI X" : 


INPUT 

IJ 




360 

FRI NT 

"H.S 

EZ. " , " INTEG. " 



400 

dx= < ij' 

-L > / 

N ^ T=0 



410 

X= L : Gl 

USUB 

500 Li : T-T +V 



420 

V-IJ : Gl 

USUI: 

5000 : T=T+V 



450 

M=N/2 

: Z=0 





72 


460 FQR J=1 TO M 

470 X=L+I)X4K2*J-1 > : GOSUB 5000 : Z=Z+V 

480 NEXT : T=T+4*Z 

500 M=M-1 : IF M=0 THEN 600 

510 Z=0 : FQR J=1 TO M 

520 X=L+DX*2*J : GOSUB 5000 : Z=Z+V 

530 NEXT : T=»T+2*Z 

600 fi=BX*T/3 

610 PRINTN.ft 

620 N=N#2 

630 GOTO 400 

4.970 REM m I SERI SCI Lfi SUBROUTINE Fi 500 
0 

4980 REM 
4990 REM 

5000 REM V«F<X> VR QUI- 
5999 RETURN 
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DEVIAZIONE STANDARD 

★ * 

Ecco come determinare qualsiasi deviazione standard relativa' ad una 
certamedia. 

Per uscire dal programma occorre inserire il valore 999999999. 


10 

PRINT’ 

* CGLERR] " : 

CLR 



20 

INPUT 

"VALORE : 

" X 



30 

IF X=S 

*33333333 

THEN € 

;y 


40 

T-T+X : 

: S=S+Xt2 : H 

l=N+ 1 



50 

GOTO 20 




60 

R=T/N : 

V-S/N-A T2 

: D=SQR 

: c V > 


70 

PRINT : 

PRINT: PRINT 



80 

PRINT* 

'TOT. VflLO 

RI INS 

ERI TI : 

";T 

90 

PRINT* 

'MEDIA: 



" : A 

100 

PRINT* 

"VARIANZA: 



" ; V 

110 

PRINT* 

’DEVIAZ. S 

T ANDfiRD : 

" ; D 

120 

PRINT: 

PRINT: PRINT 



130 

PRINT* 

'PREMI UN 

TASTO 

PER 

CONTINO 


ARE" 





140 

GET H$IF H$~" " 

THEN 

140 


150 

CLR :C 

j»OT 0 1 0 
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DIVISIONE DI FATTORI 

* * 

Questo programma trova tutti i fattori primi in cui risulta divisibile un 
numero qualunque. 

Può essere usato come sòttoprocedura di un programma più lungo. 

Il numero di fattori individuali è limitato dalla istruzione DIM. 


1 0 PR I NT " C CLEfìR I " : REM PUL I ZI fi SCHERM 
0 

20 DIM Q < 658 ) 

30 INPUT "NUMERO MfiX. 1250" ;N 
40 FOR L=2 TO N/2 
50 M=N/L 

60 IF M=INT CM> THEN QCL>=M 
70 NEXTL 

30 PR I NT : PR I NT " I FfiTTOR I SONO : " 

90 FOR L=1 TO N/2 

100 IF Q <: L > > 1 THEN PRINTGKL) : GOTO 120 
110 Z=Z=+1 
120 NEXTL 

130 IF N=1 THEN FRI NT "NESSUNO" : GOTO 150 
140 IF Z= I NT < N/2 > THEN FRI NT "NESSUNO" 
150 GET H$ : I F fìf="" THEN 150 
160 RUN 
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FUNZIONI LOGICHE 

* ★ 

Puoi far fare al computer cose basate sulla sua decisione che qualcosa 
possa esistere. 

Questo primo programma stampa il valore di C solo se B esiste. 

La decisione è nella linea 40. 

La macchina stampa B solo se non è eguale a 0. 

A partire dalla linea 1Q0 si ha un secondo programma il quale visualizza i 
risultati delle prime linee solo se risulta “vero” uno o entrambi i confronti. 


0 

REM 

PRIMO ESEMPIO 

10 

FRI NT 

" C OLEARI " : CLR 

20 

E= 1 0 


30 

C= 10 *B 

40 

IF B 

THEN PRINTC 

93 

EMB 


100 

REM 

SECONDO ESEMPIO 

110 

FRINÌ 

" [OLEARI " : CLR 

120 

B= 6 + 

0 *> y ( 3 #4 ) 

130 

11:= <5+ 

2)><9+2) 

140 

IF B 

THÈn"pRINT"B OKAY" 

150 

IF C 

THEN PR I NT " 0 OKAY" 

200 

END 
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STATISTICHE 


IN BASE 1000 

★ * 

Supponete che la vostra radio locale affermi di raccogliere 51000 ascol- 
tatori per ogni 133000 lire di spese plubbicitarie e che l'amminastratore 
di un quotidiano sostenga che il costo di un inserzione sia di 330000 lire 
per ogni 1000 lettori. 

Il seguente ‘programma fornisce i valori necessari per stabilire quale 
delle due pubblicità sia più redditizia, valutando la percentuale in base 
mille. 


10 PRINT" CCLEfìR] " 

20 FRI NT "COSTO INSERZIONE" > INPUT fi 
30 PRINT" CIRCOLAZIONE" : INPUT C 
40 m= 1 000* < fi/C '? 

45 PRINT 

50 PRINT "£";M 

55 PRINT "COSTO PER MILLE" 

57 GET fi$ : IF fi$="" THEN 57 
60 FOR Q=1 TO 20 : PRINT : NEXT0 
70 GOTO 10 
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NUMERI CASUALI: 
ORDINAMENTO 

MAGGIORE/MINORE 

★ ★ 

E’ importante poter ordinare un gruppo di numeri e stabilire quali siano i 
valori maggiori e quelli minori. 

Questa funzione è svolta dal seguente programma. 

Il generatore di numeri casuali si trova alla linea 30. 

Ilrangevada0a 999. 

La linea 50 determina il numero più basso, mentre la linea 60 il più alto 
della serie. 


1 0 PR I HT " [ CLEfìR ] " : X=RND < -T I > 

20 FOR L=tì T0 yy 
30 H= I HT < ì 000 ^RHD < 1 > > 

40 IF L=0 THEN LN=N : HN=N 
50 IF N<LN THEN L.N-M 
68 IF H>HH THEN HH=H 
70 PR I NT " STO SCEGL. I ENEO" 

C; |T-| NEKT l 

90 PR I Nf " C CLEfiR J " : REM PUL IZIfì 
1 1 


1 00 PR I NT " NUMERO BfiSSO : " , LN 


SCHERM 
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1 1 0 PR I HT " NUMERO ALTO • ", HN 
1 20 PR I HT : PR I HT : PR I HT : PR I HT 
130 PRINT"PER flVERHE UN ALTRO " 

140 PRIHT" PREMI UH TASTO QUALSIA 

SI" 

150 GET K$ 

160 IF l<$=" " THEN 150 
170 .CLR 
180 GOTO 10 



5 

12 3 4 
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I 


MEDIA NUMERICA 
CASUALE * * 


Lo scopo dt questo programma è calcolare la somma e la media di 100 
numeri generati casualmente tra 0 e 9. 

Per le persone più interessate aH’argomento, il programma può 
rappresentare lo spunto teorico per un approfondimento delle teorìe 
probabilistiche. 


1 0 PR I NT " C CLERR ] " : X=RND < -T I > 

2 Li FOR L=9 Tu yy 
38 H=INTa0*RNIia> > 

4W NT =HT +N 

50 PRIMI "STO FACENDO LA MEDIA" 

60 MENTE 

70 PRIMI" CCLEAR] : REM PULIZIA SCHERM 
0 

80 AV-MT/100 

90 FRI NT" IL TOTALE DI 100" 

100 FRI NT "NUMERI A CASO" 

110 FRI NT "DA @ A 9" 

120 PRIMI" E""; NT 

pp J f\|T 

140 FRI NT "LA MEDIA E'";AV 
1 50 PR I NT ^ PR.I NT : PR I NT : PR I NT 


80 


160 INPUT "PER PROSEGUIRE PREMI RETURN 
" : K $- 

170 CLR : GOTO 10 
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I 


NUMERO MEDIO 
DI UNA SERIE * * 

Ecco come trovare il numero cehtrale di una serie di numeri. 

Inserite una serie di numeri e uno zero dopo l’ultimo numero. 

Le linee 40 e 70 selezionano il numero più alto e il più basso della serie. 
La linea 90 il valore medio della serie. 


1 0 PR I NT " [ CLEftR 3 " : REM F’IJL I Z I fi SCHERM 
0 

28 PRI NT "DAMMI UN NUMERO" : INPUT Z 
30 IF Z=8 THEN 90 

40 M"N=+1 

50 IF N=1 THEN H=Z:L=Z 
68 IF Z<L THEN L=2 
70 IF Z>H THEN H=Z 
80 GOTO 20 
90 M=L.K 

100 PR I NT : PR I NT : PR I NT 

110 PRI NT "NUMERO fi METFP DELLfi SERIE : " 
M 

1 20 PR I NT : PR I NT : PR I NT 

130 INPUT "PER PROSEGUIRE PREMI RETURN 
" ; K$ 

140 OLE -GOTO 10 
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NUMERI CASUALI: 

DISTRIBUZIONE 

* ★ 

Vi . siete mai domandati quanto siano effettivamente casuali i numeri 
prodotti da un generatore RND? 

Il seguente programma genera 100 numeri casuali tra 0 e 9 e conta 
quante volte viene ripetuto ogni valore. . 

Alla fine viene mostrato un quadro riassuntivo dei risultati. 


1 0 PR I NT " t CLEflR :J " : X=RNB { -T I > 

20 FOR L=1 T0 100 
3W N= I HT (. 1 0$RNB < 1 > > 

40 IF N-0 THEN A=R+1 
50* IF H=1 THEN B*B+1 
66 IF N-2 THEN C--CM 
7U IF M=3 THEN D=D+1 
80 IF N--4 THEN E=E+1 
90 IF N=5 THEN F=F+1 
100 IF N---6 THEN G~G+1 
110 IF N=7 THEN H=H+1 
120 IF N*8 THEN 1*1+1 
130 IF N=9 THEN J*J+ 1 
140 FRI NT "STO CRLOOl FIN DO " 

150 NEXTL 

160 FRINÌ" I OLEARI " ' REM PULIZIA SCHERM 
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170 PRIHT"0"..R 
180 FR I NT 11 1 " .. B 
190 PR I NT " 2 " .• C 
200 FRI NT "3" .• D 
210 PRIMI "4", E 
220 PRINT"5",'F 
230 PRIMT"S",G 
240 PRIMT"?" .. H 
25© PRIMI "8", I 
260 PRIMT "9", J 
270 PRIMT: PRIMT: PRIMT 

280 IMPIJT "PER PROSEGUIRE PREMI. RETURM 
” ; K$ 

290 CLR : GOTO 10 
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CLASSIFICAZIONE 

★ ★ 

Un gran quantitativo di numeri può essere classificato e diviso in una 
quantità più piccola. 

Guarda il nostro esempio: 

accoglie risultati e li divide in categorie denominate A,B,C,D ed F. 

Il programma presume che I singoli valori varino in un range compreso 
fra 0 e 100. 

La classificazione in lettere fa corrispondere una F ai risultati da 0 a 59 
D ai valori 60-69 
C ai valori 70-79 

B ai valori 80-89 e A ai punteggi dal 90 al 100. 

Immetti tutti i punteggi che vuoi e infine la lettera X per concludere il ciclo 
di immissione. 

Le linee 100-140 dividono tutti i punteggi nelle categorie A-F. 

Le linee 1 50- 1 70 segnalano i valori massimi e minimi mentre la 200 trova 
il valore medio e quello più probabile. 


10 PRINT" [CLEAR] " 

20 PRINT "DI GITA UN GRUPPO DI DATI" 
30 PRINT"DA 1 A 100 , UNO ALLA VOLTA" 
40 PRINT : PRINT : PRINT 
50 PRINT" INSERISCI X PER FINIRE" 

60 PRINT: PRINT 

80 I NPUT " [ RVS 3 DATO C RVOFF 3"; G$ 
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85 IF G$="" THEN 80 
30 IF G#="X" THEN 200 
100 G=V AL <. 6$ > 

110 N=N+1 

120 IF G<60 THEN F=F+l:GOTO 150 
125 IF GC70 THEN D=D+1 •' GOTO 150 
130 IF GC80 THEN C-C+l IGOTO 150 
135 IF GC30 THEN B=B+l=GOTO 150 
140 R=fì+1 

150 IF N=1 THEN L=G : H=G 

160 IF GCL THEN L=G 

170 IF G>H THEN H=G 

180 8 = 8+8 
185 G$= " " 

190 GOTO 80 

200 P=S/N : M=L+ < H-L > /2 ) 

210 PRINT"CCLERR3" 

220 FRI NT "CI SONO " ; N; "DATI" 

230 FRI NT " I VALORI VANNO DA" .• L FRI NT" fì 

ii ■ ^ 

240 FRI NT" IL VALORE CENTRALE E'";M 
250 FRI NT "LA MEDIA E'";P 
260 FRI NT 

270 FRI NT "TOTALE PER OGNI CATEGOR 

IR" 


280 

FRI NT 



cì'jQ 

FRI NT" 

A" 

.A 

300 

FRI NT" 

B" 


310 

FRI NT" 

C" 

.> C 

320 

FRI NT" 

D" 

/D 

330 

FRI NT" 

F" 

,F 

410 

FRI NT" 

PREMI [ RVS3 RETURN CRVOFF] PER 


CONTINUARE" 

420 

INPUT 

K$ 



■t 


430 CLR 
440 GOTO 10 
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DECIMALE BINARIO 

★ * 


I computer della nostra generazione sono basati su una logica a 2 stati 
(aperto — chiuso). E’ importante quindi aquisire una approfondita cono- 
scenza sui sistemi di numerazione differenti dal nostro (decimale). Il 
programma che vi presentiamo consente di effettuare conversioni dal 
sistema decimale a quello binario. 


100 REM DEC-BIN 

150 INPUT "CCLEAR INUMERÒ DECIMALE"; A 
160 IF H>255 THEN FRI NT" [RVSI TERRORE [RV 
OFF] " : FQR p=0 TO 1000 : NEXT= GOTO 150 
195 PRI NT" TRASFORMAZIONE IN ATTO" 

200 FOR 1=7 TO 0 STEP -1 ; IF A>=2fl THEN 
Bf =B$+" 1 " : R=R-2TI : GOTO 300 
250 B$=B$+"0" 

300 NEXT 

500 PRI NT TAB<7);B$ 

510 PRI NT "[DONNI ANCORA ? (S/N)" 

520 GET f\$ ■ IF R$=" " THEN 520 
530 IF Af="S" THEN RUN 
540 END 
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BINARIO DECIMALE 

★ ★ 

Questp programma rappresenta un complemento del precedente, in 
quanto consente conversioni dal sistema binario a quello decimale. 


100 REM' BIN-DEC 

150 F'R I NT" C CLERR ] NUMERO BINARIO" 

155 INPUT A$ 

160 IF LEN<A$K>8 THEN FRI NT" [RVS3 t£RRO 
REERVQFF3 " : FOR P=0 TO 1000 : NEXT ; GOT 
0 150 

195 PRINT "[DOWN] TRASFORMASI ONE IH ATTO" 
200 TL=0 : C=0 

210 FOR X=3 TO 1 STEP -1 -C=C+1 
220 V-VAL ( M IB$(A$,C, 1 > > 

230 TL=TL+V3fs2tCX-U 
240 NEXTX 

500 PRINT TAB<10>;TL 

510 PRINT "E DOWN 3 ANCORA ? <8/N>" 

520 GET A$ : IF A$="" THEN 520 
530 IF A$= " S " THEN RIJN 
540 END 
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EQUIVALENZE * * 


Ecco un quiz che metterà a dura prova le vostre conoscenze sui sistemi 
di misura. Il numero delle domande a cui si vuole essere sottoposti è 
prefissabile dall’utente. 


1 50 D I M ES$ < 35 > , MS* C 35 > , C 35 > , EPS < 35 > , M 


PS 35 > 

16Q Q=RND C — T I > : B$= " " 

200 GOSUB 400 : GO SU E 450 
210 INPUT " QUANTE DOMANDE VUOI NQ : NQ= 
INT (NQ> : IF N0<1 THEN 210 
220 FOR .T= 1 TO NGPfiftSUB 600 : ITOSI IB 900 : N 
EXT 

230 GOSUB 450 : PR I NT " C ROSSO 3 HA I DATO " ; NR 
"RISPOSTE GIUSTE SU H ;NQ; "DOMANDE" : 


PR I NT ; PR I NT " [ BLEU ] " 

240 p= i m*m/m ■ pr i nt " percentuale r i spo 

STE GIUSTE = "JP 


250 END 


400 RESTORE NJD=0 

4 1 0 ND=ND+ 1 : READ EST < ND > , MST < ND > , C < ND > , 
EPT (. ND > .. MPT ND > 

420 IF EST C ND > O " XXX " THEN 410 
430 ND=ND-1 : RETURN 

450 PR I NTCHRT < 1 47 > ; TAB ( 3 > ; " i RVS ] UH QU I 
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Z f'IETR I CO " : PR I NT : RR I NT " ************ 
*■ *********" ■ RETURN 
600 N= I NT < ND*RND < 1 > > + 1 
610 F~0 : I F RNDC1»0.5 THEN F=1 
620 V 1 --- 1 NT < RND C 1 > *99 ) +2 •’ V3= V 1 *C < N ) : I F F 
= 1 THEN V3=Vl/Ca-0 

630 IF NI THEN V3=< V1-32V1 . 8 : IF F==l TH 
EN V3=<Vl#1.8>+32 

640 V2-V3* < 0 . 5+RND < 1 > ) : V2- 1 NT < V2+0 . 5 ) : T 
=0 : IF V2CV3 THEN T=1 
650 GOSUB 450 : PR I NT " DOMANDA " J ; " SU " ; NQ : 
FRI NT 

660 IF F=0 THEN PRINTV1 ; EP$(N) ; " 

sono p i u d i " ; V 2 ; mp$ n > ; " '• " 

670 IF F=1 THEN PRINTV1 > MP$(N> : " 

SONO P I U " D I " ; V2 ; EPT < N :> " ? " 

680 GET Q$ ■ I F Q$=". M THEN 680 
700 IF G$="S" THEN PRINT : PRIHT" CRVS3TU 
D I C I S I : C R'v'OFF ] " : R= 1 : GOTO 730 
710 IF Q$= "N" THEN PRINT : PRINT" CRVS ITU 
D I C I NO : C RVOFF ] " : R=0 : GD 

TO 730 

728 PRINT: PRINT "CROSSO] NON LO SAI " : PR 
INT" CBLEU] " : R=2 


730 X"T-R : IF R=2 THEN GOSUB 800= GOTO 76 


0 

740 IF X=Ù THEN PRINT : PRINT" CRVS ] ED 
HA I RAG I ONE ! C RVOFF ] " : NR=NR+ 1 : GOTO 
7 60 

750 PR INT" CRVS] CROSSO] SEI IN ERRORE CN 
ERO ] STIJD I A C RVOFF 1 " : PR I NT" C BLEU 1 " : GO 
SUB 800 
760 RETURN 

800 PRINT : FRI NT" " 
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: FRINÌ 

810 IF F=0 . THEH FRI NT VI ; EP$CN> ; " EQUIVfi 
LGdNO R " : F'R I NT V3 ; MF'f ( H ) 

820 IF F=1 THEN PRINTVl J MP$ CN>; " EQUIVFI 
LGONO fi " •• PR I HTV3 ; EF'$ < N > 

830 PRINT:PRINT"*### Lfi REGOLA E" ####" 

: FRI NT 

848 IF N-l fiHH F=0 THEN PR I NT " GRADI C. 

= < GRAD I F . -32/ 1 . 8 " : RETURN 
850 IF N~1 AND F=1 THEN FRI NT" GRADI F. 

= ( GRAD I C . * 1 . 8 > +32 " : RETURN 
860 IF F=@ THEH FRI NT" 1 " ; EST <N> ; " EQU 
I VALE A" : FRI NTC < N > ; MF'T ( N > • RETURN 
870 Q= I NT C 1 . E5/C < N ) > / 1 .E5 : FRI NT" 1 " : MS 
$ (. N > : " EQU I VALE " : PR I NTQ : EPT < N > •' RETUR 
N 

900 PR I NT : PR I NT : PR I NT " [ RVS ] C ROSSO ] E A 

TTI UN TASTO [RVOFFUCBLEUH" 

910 GET Q:$ ■ IF QT~" " THEN 910 
920 RETURN 

1080 DATA GRADO FAHRENHEIT, GRADO CENTI G 
RADO, 0.5 

1010 DATA GRADI FAHRENHEIT, GRADI CENT I G 
RADI 

1020 DATA MIGLIO ALL ORA, CHILOMETRO ALL 

•‘‘ORA, 1 . 60935 

1030 DATA MIGLIA ALL'ORA, CHILOMETRI ALL 
ORA 

1 048 DATA P I E'DE, METRO , tì . 3048 
1 050 DATA P I ED I , METR I 
1 060 DATA M I GL 1 0 • CH I LOMETRiJ , 1 . 60935 
1 @70 DATA M I GLI fi , CH I LOMETR I 
1 080 DATA POLL I CE , CENT I METRO , 2 . 54 
1 090 DATA POLL I C I , CENT I METR I 
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1100 DATA GALLONE.- LI TP. 
1110 DAT A GALLOH I • L I TP 
1 1 ?0 DATA L I BBP.H , CHI LO 
1130 DATA LIBBRE, CHILO 






SEQUENZE * * 


Provate ora a testare le vostre attitudini ai ragionamento. 

Riuscirete ad eccellere, se avete doti logiche particolarmente sviluppate. 
Il gioco consiste nel trovare l’elemento mancante di una sequenza di 
numeri. 


3 


4 

10 

20 

30 

100 

110 

115 

120 

125 

130 

140 

150 

200 


PR I NT " C CLEfiR ] C DOWN ] L R VS ] M SEQU 
ENZE %% " 

PR I NT " COMPLET RTE LR SEQUENZRDI NUME 
RI CHE STO PER MOSTRARVI [BLEUICDOWN 
]" 

FOR T=1 TO 1000 •' NEXT 
LET B=INT<RND< 1 )#10)+1 
LET C»INT<RNIK 1 >#10)+1 
LET D=IHT<RNIK1>*10>+1 
FOR fl=0 TO I NT < RHD < 1 ) #6 ) +4 
PRINTB 

B=B+ < B+C > -D#B 
NEXT 

PPINT" " 

I HPUT " E DOWN ì NUMERO MANCANTE " ; X 
IF X=B THEN PR I NT " C DOWN ] ESATTO > ERA 
" ; B •' GOTO 200 

PR I NT " C DOWN ] ERRORE , ERA " ; B 
I NPUT " [ DOWN ] UN "ALTRA S/N " ; A$ 
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210 IF fì$="S" THEN 2 

220 PR I NT " C CLERR ] C DOWN 3 C RZZUR ] C RVS 3 ## 

SEQUENZE " 

230 PR. I NT " C BLEIJ 3 1 4 DOWN 3 RRR I VEDERC I ! !" : 
END 
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TROVA IL NUMERO 

* ★ 


Eccolo! 

Da qui, negli anni settanta, cominciò la programmazione dei 
microcomputer. 

Il primo gioco ad essere giocato fu una routine di ricerca numerica con 
informazioni troppo grande/troppo piccolo. 

Il computer seleziona un numero segreto. 

Tu devi indovinarlo. 

Lo schermo ti inforna se il numero che stai provando è troppo elevato, 
troppo basso o se è proprio quello giusto. 

Ecco come funziona: 

la linea 100 genera un numero casuale tra zero e 1000 (il numero 
segreto) e lo immagazzina. 

La linea 210 ti chede di indovinarlo. 

Le linee 300-310 decidono se l’hai trovato o meno, ed infine la linea 220 
tiene conto dei numeri dei tentativi. 


10 

FRI NT" 

CCLEfìR] " : REM 

PULISCE SC 

HERMO 

20 

Z=RND< 

-TI > 



30 

T=0 




1 00 

R= I NT < 

i000*RNiia>> 



200 

FRI NT" 

HO UN NUMERO 

SEGRETO E TU 

1 DEVI 


SCUPR 

IRLO" 



210 

FRI NT" 

INSERISCI UH 

NO. " : INPUT 

E 
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220 T-T+l 

230 PR I NT : PR IHT • PR I NT " TENTAT I VO HO . " ; T 
300 IF B>R THEN FRI NT : FRI NT "TROPPO ALTO 
, RITENTA" ; INPUT B : GOTO 220 
310 IF BCR THEN PR I NT • FRI NT "TROPPO BASS 
0, RITENTA" = INPUT- B = GOTO 220 
400 PR I NT " C OLEARI " 

410 PR I NT " S I .■ HAI INDOVINATO!" 

420 PRINTR; "E"' IL NUMERO" 

430 FRI NT "L'HAI SCOPERTO" 

440 PR I NT " I N " T " TENTflT I V I " : FOR I =0 T 
0 5000 •' NEXT 
450 FRI NT "[OLEARI" 

460 ijLR 
47@ GOTO 30 
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SCARTA L’INTERO 

★ * 

Si consideri il numero 123,456 e si voglia lavorare solo sulla porzione a 
destra della virgola. 

Il programma seguente conserverà solo la parte .456, scartando 123. 

In pratica tronca dei numeri decimali, conservandone solo la porzione 
frazionaria. 


10 

PRIMI" 

fi 

CCLE 

URI" • REM 

PULIZIA 

SCHEEM 

20 

PRIMI" 

HflMM 

I UN NUMER 

U" 


30 

PRIMT" 

|.J 

CON 

UN fi CIFRA 

DECIMALE' 

: INPUT 

40 

H 

X=N-IN 

I(M> 




50 

PRIMI 





60 

PRIMI" 

LR P 

ORZI ONE" 



70 

PRIMI" 

\~ RAZ 

I UN ALE DI" 



80 

PR I MIN 

! . "E " 

1 1 * 



90 

PRIMI : 

PRIM 

IMPRIMI 



100 

INPUT 

li - i . ■ .+• 

"PER 

P ROSEO IRE 

PREMI 

RETURN 

:l 1 0 

.• f\4> 

CLR : G 

0T0 

10 
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ARROTONDAMENTI 

* ★ 


La tecnica per arrotondare un numero è semplice. 

Questo programma che può operare isolatamente o nel corpo di un 
programma più vasto, arrotonda un numero decimale all'Intero più 
vicino. 

Ci sono due vie per arrotondare un numero. 

Una dice: 

“Se il numero decimale è maggiore di 5, arrotonda all'intero superiore”. 
Il che significa che 0.5 arrotonda per difetto. 

La seconda è: 

“Per ogni numero minore di 5, arrotonda per difetto”. 

In questo caso 0.5 arrotonda per eccesso. 

La prima parte del programma segue la prima teorìa, mentre la seconda 
arrotonda per difetto a meno di 5. 


1 0 PR I NT " C CLEflR ] " : REM PUL I Z I A SCHERM 
0 

20 FRI NT "DAMMI UN NUMERO" 

30 PR I NT 11 CON PII P DI" 

40 PR INI" BUE CIFRE DECIMALI " : INPUT N 
50 N$«STR$<N> 

60 N$=R I GHT$ < N$ , ( LEN < NT ) - 1 > > 

70 R= I NT (. 1 00#N+0 - 5 > / 1 00 
80 R$=STR$CR> 
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90 R$=R I GHT $ < R$ , ( LEN < R$ > - 1 > > 

100 PR'IHT ” C CLEflR I 11 

110 PRINTN : FRI NT "SI APPROSSIMO R" 

120 PRINTR 

130 FRI NT : FRI NT" O" 

1 40 FRI NT : Pft I NT " $ " ; N$ ; " HI VENTA “ 

150 PRINT"r\:R* 

160 FRI NT : FRI NT ■' FRI NT 

170 FRI NT "PREMI RETURN PER PROSEGUIRE" 

175 GET H$: IF R:£=" " THEN 175 

180 CLR : GOTO IO 



100 
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ARROTONDAMENTI 

A DOPPIA CIFRA 

★ * 

E’ possibile arrotondare al centesimo più vicino, cioè due cifre dopo la 
virgola. 

Ecco come: 


1 0 PR I NT " C CLEflR ] " : REM PUL I Z I fì SCHERM 
0 

20 PRI NT "DAMMI UN NUMERO" 

30 FRI NT" DA RPPROSS I MB RE ALL 'I NT 

ERO" 

40 INPUT N 

50 IF N>INTCN> THEN SO 
60 R=N 
70 GOTO 130 
80 D=N- 1 NT < N > 

90 IF IO-0.5 THEN 120 
100 R= I NT C N > 

110 GOTO 130 
120 R~INT(N)+1 
130 PR I NT "C CLEflR]" 

140 PRINTN 

150 PRI NT "E •APPROSSIMATO A" 

160 PRINTR 
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DALLA PERCENTUALE 
AL DECIMALE * * 


depositi, gli interessi, le imposte e gli altri programmi finanziari diventano 
più pratici se non dovete fare conversioni numeriche a mente. 

Per esempio, se sapete che il vostro conto bancario vi frutta un’interesse 
pari all’8%, la via più breve per conoscere l'ammontare finale è di 
inserire un 8 e lasciare al computer il compito di eseguire i conti. 

Inserite nel programma seguente, ad esempio, il valore 2.500.000 e 
digitate 6 alla richiesta della percentuale. 

Il computer risponderà 2.650.000. 


10 FRI NT" CCLEflR] " : REM PULIZIA SCHERM 
0 

20 FRI NT "PREZZO £”: INPUT P 

30 PRI NT "TASSA DI VENDITA Si" : INPUT R 

40 T =0 . 0 1 +:R 

50 S=T*P •• B=P+S 

60 Sf=STR$ < S > : B$=STRf < B > 

70 S$~R I GHTT < $$ , •; LEM < S$ > - 1 > > : BT=R I GHT t 
CBT, CLEhKBf >~1 > > 

80 PRI NT” COLE ARI” 

90 PR I NT " TASSA D I VENE I TA " : PR I NT " £ " ; S$ 
1 00 PR I NT “ CONTO TOTALE " : PR I NT " £ " ; ET 
110 PRI NT PRI NT: PRI NT 
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120 INPUT "PER PROSEGUIRE PREMI RETURN 
";KS 

138 CLR : GOTO 10 


sd-fn34*?2x ’ H758g91o 

■f jserl zs~d-fer" ! v b r a 4 5 
b‘/.734 1 2 1 5&&&5sd?> •£ s 

gdulqeurwZHkh-f kUuxyo 
ohohsdVAL* jf od^Lkf a 
y9wr9s-f hop2 40vcnsj U u 
d* j v n w c 4 3 0 1 0 -f h q c n e i vh 
s -fnxjeTsivj 8-thvu ì e 
-FhvS«vus@v#vhsdjYgeeJ 
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s gjz'"'s0cjN'?dbsvwuie* 
#zxc63Fhd z c ! f vr ZVeg 

vZEx#/vaevetjyuqDhh I 
ibjTwv (gvc<<Se'?cgrnv! 
\ •Cvbv'Pxv ’ s ; k959vhi 10 
dvhhGIYRrguadi gh-f j-f j 
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f jKQDSdudrg jaNOT a v8 
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* * 


3. Gestionali 


* * 


COMPARATORE 
DI INTROITI * * 


Questo semplicè programma raccoglie i dati relativi agli introiti mensili 
della vostra attività e li visualizza su un grafico di immediata interpreta- 
zione, che pone in evidenza come differisca un mese dall'altro. 

Le linee dalla 100 alla 160 acquisiscono i dati 
le linee dalla 300 alla 360 creano il grafico. 


1 0 PR I NT." C CLEfìR 3 “ : REM PUL IZIfi SCHERMO 
20 DIM CR < 6 > 

100 F0R L--1 T0 6 

110 PRI NT "ENTRATE IH CASSA” 

120 PRI NT" DEL MESE" • L 
130 INPUT CR<L> 

140 IF CRCL»12 THEN F'RINT"C2 IJP]" GOTO 
130 

150 PRI NT 
160 NÉXT 

200 PRI NT" CCLEAR3 " 

210 FRI NT" C NERO 3" 

220 FRI NT "ENTRATE DI CASSA" 

230 FRI NT" (VALORI DA 0 fi 12>" 

240 PRI NT "CROSSO 3" 

250 PRI NT 
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308 FOR T=1 TO 6 
305 -PRINTT; 

310 IF OR < T > > 1 2 THEN PRI NT "VALORE ECCE 
SIVO" 

320 FOR K=1 TO CR< T> 

330 IF CR<T)>0 THEN FRI NT" CR'.'Sl! 

348 NEXTX 

350 PR I NT " C R'v'OFF ] C DOWN] " 

360 NEXTT 

400 FOR W=1 TO 3 : FRI NT : NEXT 
410 REM FRI NT" s|" 

420 INPUT "PREMI RETURN PER .CONTINUARE 
: V$ . 

430 CLR : GOTO 1 8 
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PUBBLICITÀ’: COSTO 

PER UNITA’ DI VENDITA 

★ * 

Il vostro quotidiano preferito possiede il miglior rapporto prezzo quantità 
per il settore pubblicitario. 

Un annuncio vi costa 330000 lire e vi frutta la vendita di 77 prodotti. 
Quanto è stato il costo unitario? 

La giusta risposta verrà data da questo breve programma. 


10 FRI NT" [OLEARI" 

20 PRI NT "COSTO INSERZIONE" : INPUT fi 
30 PRI NT "UNI TFT' VENDUTE" : INPUT U 
40 C=fi/U 
45 PRI NT 

50 PRINT"Lfì PUBBLIO ITA' COSTfi £ ",C 
55 PRI NT "PER UNITA' VENDUTA" 

57 GET fi$ : IF A$="" THEN 57 

58 FOR P=1 TO 10 : PRI NT : NEXT 
60 CLR 

70 GOTO 10 
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CONTAPEZZI 


★ * 


Questo programma vi consente di contare un certo quantitativo di merce. 
Semplicemente digitando sulla tastiera un numero alla volta. 

Non è neppure necessario premere RETURN 
il computer visualizza immediatamente il valore totale. 

I tasti utilizzabili sono quelli compresi tra 0 e 9. 


10 

FRI NT" CCLEflRJ 

il 

20 

GQSUB 208 


30 

GET H* : IF fl$= 

THEN 30 

35 

PRINT 


50 

IF RT ="C " THEN BNT=0:'GOTO 90 

60 

IF flSC < R$ > <48 

OR flSC CHS >>57 THEN 

70 

M=VRLCfì$> 


80 

T=T+N 


90 

GOSUB 200 


100 

PRINT "TOTALE" 

;t 

110 

GOTO 30 


200 

F’R I NT " [ OLE AR ] 

ii 

210 

PRINT" S 

OMMRTQRE " 

220 

FOR L~ 1 TO 22 

■PRINT"#".; :NEJiT 

230 

RETURN 
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INVENTARIO * * 


Il seguente programma è stato preparato per eseguire l’inventario di 10 
categorìe di prodotti. 

Le categorìe dei prodotti sono individuati dai numeri da 1 a 10. 

Si possono introdurre un numero indeterminato di elementi per ogni 
categorìa, senza con questo dover rispettare alcun ordine particolare. 

Il valore 0 segnalerà al computer che l’introduzione dei dati è terminata e 
provocherà la visualizzazione del gran totale relativo ad ogni categorìa. 
La linea 25 richiede il numero della categoria 

se 0 salta alla linea 70 per il gran totale, diversamente procede alla linea 
40. 

L’input del numero di categorìa è controllato per evitare l'acquisizione di 
dati non validi. 

La linea 50 chiede il quantitativo di merce per categorìa. 

La linea 60 attua la diramazione alle diverse categorìe. 

Il programma ricicla continuamente fino alla digitazione .del valore 0. 


26 PR I NT ” l CLERR J" : REM PUL I Z I fì SCHERMO 
25 INPUT "CODICE MERCE" ;C 
30 IF C=0 THEN 70 
40 IF OlW THEN 20 
50 INPUT "QUfiNTITfi- ,, ;Q 
60 OH C00T0 20 1 .■ 202 , 203 > 204 • 205 .■ 206 , 2U 
7 , 208 / 209 .■ 2 I O 
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70 PRIMI" [CLERRU " 

90 GOSUE 250 
100 F'RIMT : FRI NT : FRI NT 

110 INPUT "PREMI RETURN PER CONTINUARE" 
; K$ 

120 CLR : GOTO 20 
2 0 1 J = J + Q : G 0 T O 2 0 

202 K=K+Q : GOTO 20 

203 L=L+Q : GOTO 20 

204 M=M+Q : GOTO 20 
•205 N=N+Q : GOTO 20 

206 R=R+Q : GOTO 20 

207 S-S+Q : GOTO 20 

208 T=T+Q ■' GOTO 20 

209 U=U+Q : GOT 0 20 

210 V=V+Q ■ GOTO 20 
220 END 

250 PRI NT "MERCI" 

260 PR I NT " COIi I CE " , " QIJANT I Tfì " 

270 PRI NT 
300 PR I NT " 1 " J 
310 PRI NT" 2" > K 
320 PRI NT" 3" , L. 

330 PRI NT "4" .. M 
340 PR I NT " 5 " .• N 
350 PR I NT " 6 " .. R 
360 PR I NT " 7 " ■ S 
370 PR I NT " 8 " .• T 
380 PRI NT "9", IJ 
390 PR I NT " 1 0 " .• V 
400 RETURN 
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ORE E SALARI 


★ ★ 


I 


Queste utili linee calcolano il numero totale di ore lavorative a tempo 
pieno e il numero di ore di lavoro strordinario. 

Viene fornito anche l’ammontare del pagamento finale arrotondato 
all’unità. 

Il programma sa cihe lo straordinario inizia dopo le 40 ore. 


10 F’RINT" CCLERRJ " 

28 FRI UT "STI PENDIO PER UN ORR" 

30 INPUT "£ " ; P 

40 PRI NT "NUMERO DI ORE DR RETRI BU 

IRE" 

50 INPUT H 

60 IF H>40 THEN 0T=H-40 ■ GOTO ItìO 
70 W=H*P 

80 PRI NT "STI PENDIO LORDO" 

90 PRINT"£" : 0 
100 END 

1 1 0 W= < 40*P > + ( OT *P* 1.5) 

120 GOTO 80 
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AL PENNY PIU’ VICINO 

★ * 

Questo programma è utile per arrotondare un numero contenente cente- 
simi, al decimale più prossimo. 

Per esempio, da 1 51 ,6972 a 1 51 ,70. 

Questo piccolo programma può costituire una utile sottoprocedura in un 
programma più vasto. 

Per fare ciò richiamatelo con un opportuno comando GOSUB e modifi- 
catene i numeri di linea. 

In questo caso non dimenticate di cancellare il contenuto della linea 180 
e di sostituirlo con un RETURN. 


10 
'■> C\ 

" VI 


55 

69 

P0 


PR I NT " C CLEH.R J 11 

PR I NT " I NIROD I C I UN NUMERO CON PIU 
DI DUE CIFRE DECI URLI" 

INPUT H 

r= i NT (. 1 06*N+0 - 5 > / 1 00 
PRIMI 

N f '- " $ " +R I GHT$ < < STRI < N > > .• <. LEM 1 ', STR$ N 


) } — 1 ) ) 

90 RT-- " $ " +R I GHT$ < < STR$ < R > > , < LEM < STRI ( R 


:> ■' 1 > "j 


100 ■ PRIMI" LCLERR J " 

104 PRINTN$ 

110 PRIMI’' RRROTONBRTCr DIVENIR : ” 
115 FRINIRE 
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120 PRIMI : PRINT : FRI NT 

130 FRI NT "PREMI UN TASTO PER CONTINI! 
ARE" 

160 GET ftt- ■ IF A$=" " THEN 160 
180 CLR : GOTO 10 
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AUMENTO 

DI VALORE MONETARIO 

★ * 

Questa sezione del libro include una serie di programmi relativi alla 
gestione della contabilità domestica e spicciola. 

Questo primo programma mostra come cresce il valore di un investimen- 
to ad un certo tasso di interesse annuo, calcolato mensilmente. 

Il primo valore da inserire è l’ammontare iniziale dell’Investimento. 
Successivamente viene richiesto il tasso di interesse annuo e il numero 
di mesi da visualizzare. 

La linea 10 cancella lo schermo 

le linee dalla 20 alla 40 acquisiscono i dati, mentre dalla 70 alla 100 
vengono prodotti i risultati. 

La linea 85 genera un rallentamento della visualizzazione per permette- 
re una più comoda lettura dei dati. 


10 PRIMI" CCLERR] 

fi 


REM PULIZIA SCHERM 


20 FRI NT" CAPITALE £" : INPUT P 
30 PRIMI " INTERESSE ANNUO Z" : INPUT R 
40 PRIMI "NUMERO DEI MESI" •' INPUT M 
50 FRI NT" CCLERR I " : REM PULIZIA SCHERM 


I ! 


60 PR I NT " MESE " • " E I LRNC 1 0 ’’ 
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70 FOR Q=1 TO M 
80 I = < P* C 0 . 0 1 *R > > / 1 2 

90 p=p+j 

1 00 PP= I NT ( 1 00#P+0 . 5 > / 1 00 

110 PRINTQ.-PP 

120 FOR T=1 TO 400 : NEXTT 

130 NEXTQ 

140 PRINTPRIMT 

150 INPUT "PER PROSEGUIRE PREMI 
" ; K$ 

160 CLR GOTO 10 l 




RETURN 
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PAGAMENTO 
DI AUTOMOBILI 


Dovete acquistare una nuova auto? 

Servitevi del vostro computer per valutare velocemente il costo mensile 
di ogni modello. 

Immaginate di volere una vettura da 8 milioni e di poterne anticipare solo 
uno. 

Decidete quindi di rateizzare il rimanente importo in 36 mesi. 
L’interesse annuale sulle automobili è del 15%. 

Impostate i dati e otterrete il valore dell’ammontare di ogni rata. 


1 0 FR I NT " [ CLEflR ] " : REM PUL I Z I fi SCHERM 
0 


2@ 

finsi ib 2 Tifi 

• 


e* 

iZ. •- .* 

FR I NT 



30 

FRI NT" PAGANE 

NTO RATE 

fì 


UTOMOBILE" 



40 

fil isi IB .‘'Sfi 



50 

PRÌNT 



60 

FRI NT" PREZZO D 

ACQUISTO £ 

li 

70 

INPUT T 



30 

FRI NT" AMMONTARE 

BELLA 

SOMMA 


RIMASTA £" 
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99 INPUT R 

100 PRINT" NUMERO DEI MESI" 
110 INPUT N 

120 PRINT" INTERESSE ANNUO V.“ 
ISO INPUT I 

1 50 P=< T-R > # I / <1-1 / < 1 + 1 > Tt-4 > 

1 60 PP" I NT ( 1 W0#P+0 . 5 > .•••■ 1 00 
170 PRINT 

1 80 PR I NT " PAGAMENTO £ " , PP 
190 PRINT 
200 GOSUB 2'5@ 

210 PRINT 

220 INPUT "PER PROSEGUIRE PREMI 
" ; K:$ 

230 CLR 
240 GOTO 10 

250 PRINT" POR L=1 TO 20 
260 PRINT 
270 NEXTL 
330 RETURN 


RETURN 
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GENERATORE 
DI CARATTERI * 


Questo programma vi consentirà di riprogrammare i caratteri desiderati 
sul vostro VIC-20. I cursori vi consentono di muovervi in una delle 4 
direzioni disponibili, posizionandovi sull’elemento che volete mutare. 
Tutte le successive fasi del procedimento sono sufficientemente 
autoesplicative. 


1 00 POKE 36879 , 27 : PR I NT " C CLEfiR ] GENERATO 
RE CARATTERI" 

110 PR I NT " C 2 DOWN] POCKET GROUP" 

1 40 X=PEEK < 56 > -2 : POKE 52 , X : POKE 56 , X : PO 
KE 51 , PEEK<55> CLP 
1 50 CS=256*PEEK < 52 > +PEEK <51 > 

160 FOR I=CS TO CS+5 1 1 : POKE I,PEEK<I+32 
768-CS > ■ NEXT 
170 S=768fi : CL=22 
1 80 CR=0 : L.N-200 : P= 1 2 : EG=3 ; ER- 1 
196 POKE 36879 > BG# 1 6+ER 
200 DEF FNA<XX)=S+R#CL+C : REM VIDEO PO 
KE LOC 

210 DEF FNB<XX)=8#R+C : REM VIDEO POKE 
CHAR 
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220 GOTO 580 

230 PR I NT " C CLEflR ] " : GOSUB 8 1 0 

240 PR I NT " [ HOME ] " ; : FOR I =0 TO 7 : PRI NT " . 

" : NEXT F=@ 

250 PR I NT'" C HOME ] " : R=@ : C=0 
260 Z=FNA<0) 

270 IF F=0 THEN POKE Z. PEEK(Z>+128 : GOTO 
310 

280 IF Z=ZL THEN 300 

290 POKE ZL.IL: POKE ZL+30720, BC : ZL=Z : IL 
=PEEK (. ZL > 

300 POKE Z. 32: POKE Z+30720,2 
310 GET fi$:IF A$=" M THEN 310 
320 IF F=0 THEN POKE Z. REEKCZ)-128 
330 REM CONTROLLO CURSORE 
340 IF THEN POKE 56. PEEKC56>+2 •’ P 

OKE 36869 . 240 : PR I NT H C CLERR ] " : END 
350 IF R$-" CRIGHT] " AND C=7 THEN C*0=GO 
TO 260 

360 IF R$=" CRIGHT]" THEN C=C+ 1 : GOTO 260 
370 IF 8$=" CLEFT]" AND C=0 THEN C=7 : GOT 
0 260 

380 IF A$=" CLEFT] " THEN C=C-1 : GOTO 260 
390 IF AT=" CDONN] " AND R=7 THEN R=8 : GOT 
0 260 

40@ IF R$= " C DOWN ] " THEN R=R+1 : GOTO 260 
410 IF A$=" CUF’] " AND R=0 THEN R=7 : GOTO 
260 

420 IF A$=" CUP] " THEN R=R-lGOTO 260 

430 IF A$=" C HOME 3 " THEN 250 

440 IF F=1 THEN 540 

450 REM DEFINISCE CARATTERE 

460 IF A$="+" THEN POKE Z. 81 GOTO 260 

470 IF R$="-" THEN POKE Z. 46: GOTO 260 
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430 

490 

500 

510 

520 

530 

540 

550 


560 


f=i70 

530 


590 


600 


610 

620 

630 

640 

650 

660 

670 

680 

690 


IF A$= ,, = " THEN 680 
IF fl$“" CCLEflR] " THEN 240 
IF fi$="R" THEN 580 
IF A$="B" THEN 770 
GOTO 260 

REM OPTI ONE CARATTERE 
CR=FNB(0> 

IF A$="N" THEN POKE 36869.- 240 : GOTO 
230 

IF A$="E" THEN POKE 36869- 240 : F=0 : G 
OTO 730 
GOTO 260 

POKE 36869 255 : R=4 : C=0 : ZL-FNA (0) : IL 
=32 

PR I NT " C CLEAR 3 0ABCBEFG " : PR I NT " H I JKLM 
NO " : PR I NT " PQRSTUVW : PR I NT " XVZ C £ 3 t*-" 
•F=l 

PR I NT " ! " +CHR$ < 34 > + " ' " : PR I NT " < > 

. / " : PR I NT " 0 1 234567 " : PR I NT " 89 : ; < 

=>?" 

PR I NT M C HOME 3 " SPC (12); " C RVS 3 OPT I ONE C 
RVS 3 ” FRI NT 

PR I NT SPC ( 1 0 > ; " C RVS 3 N NUOVO CAR ATTER 
ECRVOFF3 " 

PR I NTSPC (1 0 > ; " C RVS 3 E EB I T CAR ATTER 
ECRVOFF3" 

PR I NTSPC ( 1 0 ) ; " i RVS 3 Q F I NE 
CRVOFF3 " 

BC=PEEK ( 33400 ) 

GOTO 260 

REM UPDATE TABELLA CHAR 
PR I NT " E HOME 3 " ; : X*CS+8#CR : FOR R=0 TO 
7 : SM=0 ; FOR C=0 TO 7 : H=7~C 
SM=SM-2 TD* ( PEEK ( FHH ( kO >=81 > : NEXT 


122 


co CO CO CO 03 


700 F’OKE X+R , SM : PR I NTSPC < 3 > ; SM : NEXT 
718 R=0 • C=0 : GOTO 260 
720 REM ED IT CHfìR'IN TABELLA 
730 X=CS+8*CR : FRI NT" [OLEARI " : FOR R=0 TO 
7 : V=PEEK<X+R) : FQR 0=0 TO 7 : Z=FNAC0 

) 

740 Q-46 •' V=V#2 : 1 F V>255 THEN Q=81 :V=V-2 
56 

750 POKE Z , Q : NEXTC, R : R=0 : 0=0 : GOSUE 810: 
fifiTi'i 260 

760 REM DEFI HE CHRR 

770 X=CS+8#CR : PR I NT " C HOME 3 C 8 DOWN 3 " 

780 PRIHTLN; "READ %■ FOR I=X TO X+7 : RE 
RD V : POKE X , V : NEXT " : LN-LN+ 1 0 
790 PRINTLN; "DATA" ; X; : FOR I=X TO X+7 : PR 
I HT " [ LEFT 3 , " PEEK < I > ; : NEXT I : PR I NT 
800 GOTO 260 

8 1 0 PR I NT " C HOME 3"; SPC < 1 3 > " C R VS 3 OPT I OH [ R 
V'OFF 3 " : F'RIHT 

20 PR I NTSPC < P>; "C R VS 3 + i RVOFF 3 RDD DOT " 
30 PR I NTSPC < P ) ; " [ R VS 3 - C RVOFF 3 CANCEL " 
40 PR I NTSPC <?') '> "E R VS 3 = C RVOFF 3 IJPD ATE " 
50 PR I NTSPC < P > ; " E R VS 3 E C RVOFF 3 BAS I C " 
60 PR I NTSPC < P > ; " C R VS 3 R C RVOFF 3 REV I S I " 
87*0 PR I NTSPC < P ) ; " i R VS 3 Q C RVOFF 3 F I NE " 
880 RETURN 
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EFFETTI SONORI * 


Il VIC — 20 può essere un interessante generatore di effetti sonori. 

In questo programma ne vengono presentati alcuni tra i più interessanti: 
piano, computer mania, esplosione, bomba, allarme rosso, laser, sirena, 
busy busy, telefono, uccello, vittoria, onde dell’oceano, ufo, ufo in atter- 
raggio, wolf, tick tock, dooropening, blips. 


1 FRI NT" CCLEfìR] 1 PIANO 


ci 

FRI NT "2 

COMPUTER MANIA 

3 

FRI NT" 3 

ESPLOSIONE 

4 

FRI NT "4 

BOMBA 

ET 

FRI NT" 5 

ALLARME ROSSO 

6 

FRI NT "6 

LASER 

■J7 

PRINT"? 

SIRENA 

8 

FRI NT "8 

BUSV BUSV 

9 

FRI NT "9 

TELEFONO 

10 

FRI NT "fi 

UCCELLO 

11 

PRINT"B 

VITTORIA 

12 

PRINT"C 

ONDE OCEANO 

13 

PRINT"B 

UFO CHE VA" 

14 

FRI NT "E 

UFO ATTERRAGGIO 

15 

PR I NT " F 

UFO dJFFfi) 

16 

PRINT"G 

WOLF 

17 

PR I NT " H 

GIRO 

13 

PRINT"! 

TICK TOCK 
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19 PRINT" J DOOR OPEN I NG 

20 PRINT"K BLIPS 

50 «4=36874 : R5=R4+1 : R6=R5+1 : R7=R6+1 : R8 
=R7+1 

100 GET.R$:IF R$=" 11 THEN 100 
110 PRINT "CHOME] CHOWN]" TRB<20>fl$ 

120 R=RSC < R$ > -55 : I F fl>9 THEN 310 
200 R=VRL<R$> : IF R=0 THEN 100 
300 ON RGOSUB 1100,1200,1300,1400,1500, 
1 600 , 1 700 , 1 800 , 1 900 ■■ GOTO 1 00 
310 ON R-9G0SUB 2000,2100,2200,2300,240 
0, 2500, 2600, 2700, 2800, 2900, 3000 
400 GOTO 100 

1100 POKE R8, 15 : FOR L=25@ TO 200 STEP -2 
: FOKE R6, L : FOR M=1 TO 1 00 : NEXT : NEXT 

1110 FOR L=205 TO 250 STEP 2 : POKE R6,L.:F 
OR N= 1 TO 1 00 : NEXT : NEXT : GOTO 1 0080 

1200 POKE R8, 15 : FOR L=1 TO 100: POKE R6, I 
NT < RND ( 1 > # 1 28 ) + 1 28 : FOR M=1 TO 10: NE 
XT : NEXT : GOTO 10000 * 

1300 POKE 07,220: FOR L=15 TO 0 STEP -1 : P 
OKE R8, L : FOR M=1 TO 100 : NEXT : NEXT :G 
OTO 10000 

1400 POKE R8, 10 : FOR L=230 TO 128 STEP -1 
:POKE R6, L : FOR M=1 TO 20 : NEXT : NEXT : 
POKE 06 , 0 : POKE 07,200 

1410 FOR L=15 TO 0 STEP -.05: POKE R8,L:N 
EXT : GOTO 10000 

1500 POKE 08, 15: POR |_=1 TO 10: FOR M=180 
TO 235 STEP 2 : POKE 06, fi: FOR N=1 TO 
10: NEXT: NEXT 

1510 POKE 06,0: FOR ri=l TO 100 : NEXT : NEXT : 
GOTO 10000 

1600 POKE 08, 15 •' FOR L=1 TO 30: FOR M*250 
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TO 249 STEF' -1 : PQKE fì6 , fi : HEXT 
1610 FQR M=240 TO 250= POKE 06, M : HEXT =POK 
E 06,0: HEXT: GOTO 10000 
1700 POKE 08, 15 : FOR L=1 TO 10 : POKE 05,20 
0 : FOR M=1 TO 500 : HEXT 
1710 POKE 05 , 0 : POKE 06, 200: FOR M=1 TO 50 
0 : HEXT : POKE 06,0: HEXT : GOTO 1 @000 
1300 POKE A3, 15: FOR l=1 TO 15= POKE 06,16 
0:FOR M=1 TO 400= HEXT 
1810 POKE 06,0: FOR M=1 TO 400 = HEXT = HEXT : 
GOTO 10000 

1900 POKE 03, 15: FOR |_=1 TO 5: FOR M=1 TO 
50: POKE 06, 220: FOR H=1 TO 5 : HEXT 
1910 POKE 06,0: HEXT: FOR M =1 TO 3000: HEXT 
: HÈXT : GOTO 10000 

2000 POKE 08, 15: FOR l= 1 TO 20: FOR M=254 
TO 240+INT<RNDa>*10> STEP -l-POKE 
06, M : HEXT 

20 1 0 POKE 06,0: POR M= 1 TO . I HT •:! RHD <1 > * 1 00 
> + 120 : HEXT : HEXT : GOTO 1 0000 
2100 POKE 03, 15: POKE 04, 170: POKE 07,240: 

FOR -L=l TO 2000 : HEXT : GOTO 10000 
2200 POKE 07, 130: FOR L=1 TO 10 : B=IHT <RHD 
<1) *5 >*50+50: FQR M=3 TO 15: POKE a8, 
M 

2210 FOR H=1 TO D : HEXT : HEXT : FOR M=15 TO 
3 STEP -1 J POKE 08, M: FOR H-l TO D : HE 
XT : HEXT : HEXT : GOTO 1 0000 
2300 POKE 08, 15: FOR L=130 TO 254: POKE fìg 
, L : FOR M=1 TO 40 : HEXT : HEXT = GOTO 100 
00 

2400 POKE 08, 15: FOR |_=1 TO 20: FOR M=220- 
L TO 160-L STEP -4: POKE 06, M: HEXT 
2410 FOR M= 160-L TO 220-L STEP'4:P0KE 06 
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, ri : NEXT : NEXT : GOTO 1 0000 
2500 POKE R8.- 15 : FOR L=l'TO 15:F0R M=2@0 
TO 220+L*2 : POKE R 6 , M : NEXT : NEXT : GOTO 
1 0000 

2600 POKE A3, 15: FOR L=148 TO 220 STEP .7 
: POKE R 6 , L : NEXT : FOR L- 1 28 TO 200 
2610 POKE A 6 , L : NEXT : FOR L=200 TO 128 STE 
P -l:POKE R 6 ,L: NEXT: GOTO 10000 
2700 POKE R8, 15 : FOR l=1 TO 10: POKE R4,20 
@:FOR M=1 TO 10: NEXT: POKE R4,0:FOR 
M= 1 TO T 00 : NEXT : NEXT : GOTO 1 0000 
2800 POKE R 8 .* 15 : FOR L=1 TO 10: POKE R5,20 
0 : FOR n=l TO 10: NEXT: POKE R5,0 
2810 FOR M =1 TO 300 : NEXT : POKE R4, 200 : FOR 
M=1 TO 10: NEXT: POKE R4,0:FOP. M=1 T 
0 300 : NEXT : NEXT : GOTO 10000 
2900 POKE A3.- 15 : B=0 : FOR L=128 TO 255 STE 
Pii: POKE R4 , L : FOR M= 1 TO 1 0 : NEXT : E 
=B +1 

2910 IF B=3 THEH B=0 : POKE R4,0 
2920 NEXT : GOT 0 1 0000 

3000 POKE R8, 1 5 : POKE R 6 , 220: FOR L=1 TO 5 
: NEXT: POKE R6,@:F0R L =1 TO 500= NEXT 
: POKE R 6 .• 200 

30 1 0 FOR L= 1 TO 5 : NEXT : POKE R 6 , 0 : FOR L= 1 
TO 500 : NEXT : POKE R 8 , 0 : GOT 0 10000 
10000 POKE A4.. 0: POKE R6/0 POKE R7.. 0-POKE 
R8,0: RETURN 
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